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FOREWORD 


This Final Report provides the results obtained in the Shuttle Cryogenics Supply 
System Optimization Study, NAS 9-11330, performed by Lockheed Missiles & Space 
Company (LMSC) under contract to the National Aeronautics and Space Administration, 
Manned Spacecraft Center, Houston, Texas. The study was under the technical direc- 
tion of Mr. T. L. Davies, Cryogenics Section of the Power Generation Branch, Pro- 
pulsion and Power Division. Technical effort producing these results was performed 
in the period from October 1970 to June 1973. 


The Final Report is published in eleven volumes*: 


Volume I 

Volumes II, III, and IV 

Volumes VA-1 and VA-2 

Volumes VB-1, VB-2, 
VB-3, and VB-4 

Volume VI 


Executive Summary 

Technical Report 

Math Model — Users Manual 

Math Model — Programmers 
Manual 

Appendixes 


The LMSC Staff participants are as follows: 


Study Manager 
Subsystem Evaluations 


- Integrated Systems- 
Component Analyses 


L. L. Morgan 

C. J. Rudey 

D. P. Burkholder 
C. F. Merlet 

W. H. Brewington 
- H. L. Jensen' 

B. R. Bullard 
F. L. Bishop 


*The Table of Contents for all volumes appears in Volume I only. Section 12 in 
Volume HI contains the List of References for volumes I through IV. 
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INTRODUCTION 


SOPSA (Space Shuttle Orbit Injection Propulsion System Analysis) is a compu- 
ter program developed by Lockheed Missiles & Space Company, Inc., as part of 
the Shuttle Cryogenic Supply System Optimization Study, Contract NAS9- 11330, 
for the NASA, Manned Spacecraft Center. This manual contains a detailed 
description of the program, its operational characteristics, and computer 
system requirements. 

SOPSA DEVELOPMENT AND UTILIZATION 

The SOPSA program was developed by IMSC primarily as an analytical tool to 
aid in the preliminary design of propellant feed systems for the Space 
Shuttle Orbiter main engines. The primary purpose of the SOPSA program is 
to evaluate propellant tank ullage pressure requirements imposed by the need 
to accelerate propellants rapidly during the engine start sequence. These 
requirements can influence the system design for a given engine as well as 
the suitability of a given system for use with different engines. During 
the vehicle design phase, the SOPSA program is used to establish feed sys- 
tem weight variations as a function of nominal line diameter and component 
and line configurations. The weight data are used in conjunction with 
pertinent cost data to establish optimum feed system designs. 

r 

The SOPSA program will generate parametric feed system pressure histories 
and weight data for a range of nominal feedline sizes. This is accompli- 
shed by evaluating tank ullage pressure requirements during the startup 
phase using the "constraints of engine inlet pressure (or NPSP) requirements 
and instantaneous values of feedline flow resistance. Program flexibility 
has been incorporated to allow for engine start on the ground or at alti- 
tude, computations, for oxidizer, fuel or both oxidizer and fuel feedlines, 
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and a multiple restart capability requiring restart data input only for quan- 
tities whose values have changed from the previous case. 

The SOPSA program utilizes a simple, in-line computational sequence to solve 
for the propellant tank ullage pressure requirements. Input data describe 
the number of main propellant feedline sizes to be considered, and the number 
of engine feedlines attached to each main feedline .( i.e. , the number of branch 
lines feeding each engine). The number and type of components in each line are 
described, with up to 23 line components currently being available. These 
components include straight and curved line sections, valves, bellows, ven- 
turis and PVC's. (The program computes component weights and flow resistance 
coefficients and display total values for each line as part of the output 
data.) Engine flowrate, NPSP and thrust profiles during the startup transient 
are also input. In addition propellant tank geometry and propellant and vehi- 
cle weights are required, along with input data control flags and miscellaneous 
boundary conditions. The program will compute the various pressure drop compo- 
nents needed to evaluate tank pressure requirements during engine start. These 
calculations are- performed for each candidate main feedline size (engine feed- 
line sizes assumed fixed) as a function of time throughout the start transient. 
Feedline weights are computed based on the maximum value of engine inlet pres- 
sure, the maximum value of tank bottom pressure, or an input design pressure, 
which ever is greatest. 

The output data display consists of reformatted input data, feedline flow re- 
sistance coefficients, time- varying values of the pressure drop components 
to hydrostatic head, flow acceleration, and line friction and configuration 
losses. Computed values of nominal and minimum required values of tank ullage 
pressure are displayed, as well as tank bottom and engine inlet pressures. 

Total feedline system weights are also output for each candidate . main feedline 
size. 

In summary,, the present SOPSA capabilities are as follows: 
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• Performs pressure drop calculations for up to four engines 
per main feedline. 

• Handles up to 12 candidate main feedline sizes per engine. 

• Computes component weight and flow resistance for up to 100 
components in each feedline. 

• Input options available to describe 23 types of components, 
7 material types, and 6 insulation types. 

• Operates on the UNIVAC 1108 computer utilizing the EXEC 8 
operating system. 

• Approximate computer run time is 6 seconds per case. 
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Section 1 

SOPSA PROPELLANT FEED SYSTEM ANALYSIS PROGRAM 

A major consideration in the design of propellant tanks and feed systems for 
the Space Shuttle Orbiter vehicle is the requirement that propellants be ac- 
celerated rapidly during the engine start sequence. Propellant tank structural 
design is influenced by the maximum ullage pressure levels required to provide 
sufficient flow acceleration, as well as hydrostatic pressure levels incurred 
during boost. Flow acceleration requirements, in turn, are dictated by pres- 
sure levels required to provide specified propellant flowrates at the engine 
during startup, while simultaneously satisfying minimum NPSP and inlet pres- 
sure requirements. Propellant feed system weight and flow resistance are 
influenced by component size and design pressure levels. Thus optimization 
of feed system design requires values of tank ullage pressure as a function 
of feedline diameter as well as feed system weight. The SOPSA program is 
designed to compute required pressure values and feed system weights for a 
range of main feedline diameters . 

The SOPSA program' consists of a main program (STAR), in which the basic pres- 
sure drop calculations are performed, and 1 6 subprograms which provide thermo- 
dynamic property data and perform auxiliary computations. The main program 
also controls the input of data and the output of computed results. 

- The UNTVAC 1108-Procedure Definition Processor (PDP) is- used to -define two- 
blocks of FORTRAN code which .-are introduced into the main program (and selected 
subprograms) during compilation by use of the source control statement INCLUDE. 
The first PDP element is named DIMN and contains C0MM0N statements for labeled 
C0MM0N block DIMEN, as well as REAL and EQUIVALENCE statement definitions. 

The second PDP element is named UC^NST and contains only the Cj&©10N block 
labeled UC0NST. 
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The variables defined in these C0MM0N blocks are described in Section 1.1.3 
below. 

1.1 PROGRAM STAR 


1.1.1 Program Description 

STAR is the S0PSA main program; all data input and output is controlled by 
STAR and the solution of the time-varying pressure drop components is ac- 
complished in STAR. 


Required values of propellant tank ullage pressures during engine start are 
determined by the pressures required to accelerate the propellant at the 
rate necessary to supply required flowrates at the engine. A proper account- 
ing of the system pressure drops yields the following relation for ullage 
pressure requirement at any time t during the start transient: 



= P . 
min 



( 1 ) 


where 




P . = Maximum value of < 

min ' 


P + P 
WPSP VAP 

or 
P ENG 


P = Engine KPSP requirement 

rJirOr 


]?VAP = Propellant vapor pressure at engine inlet 

P = Minimum engine inlet pressure 
KING 

&PrEAD = Hydrostatic pressure at engine inlet due 
to vehicle acceleration 

APj, = Pressure drop due to friction in main 
feedline and engine feedlines 

AP^cc = Pressure drop required to accelerate propellant 
to meet the specified flowrate variation during 
startup 

P = Component pressure control tolerance 

TOLr 
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The pressure control tolerance is generally interpreted to be a combined 
tolerance on ullage pressure controls and engine inlet requirements. 

Equation (l) is solved for an assumed feedline configuration employing a 
single main feedline for each propellant -with up to four branching engine 
feedlines. Feed systems employing dual main feedlines can be analyzed by 
restarts or separate runs. Currently, the program is restricted to consider 
liquid oxygen as the oxidizer and liquid hydrogen as the fuel. An input data 
flag (SYSNUM) is used to specify whether computations are to be performed for 
the oxidizer system, fuel system or both feed systems. A ground start flag 
(NGST) is used to distinguish between engine start on the ground (g/g = 1 . 0 ) 
or at altitude (g/g - Total Thrust/Vehicle Mass) for purposes of hydrostatic 
head computations . 

Inputs to the program are required to: 

• Describe the alphanumeric output heading for each case 

• Flag data groups to be input 

• Describe the propellant tank and feed system configuration 

• Describe initial propellant loadings and nominal flow conditions 

• Describe transient flowrate, pressure and engine inlet requirements 

Input requirements are described in detail in the Space Shuttle Orbit In - 
jection Propulsion System Analysis (SOPSA), User's Manual, IMSC-A991396 . 

Printed - output - data" "include - a" "listing" of - several ~ input ~ data -quantities -as- — 
follows: 

Total number of feedline sizes, NSIZE 
Total number of engines on vehicle, N0P1 

— — Number-of-eng-i-nes— fo-r-each-; feed-system,— N0P — — 

Nominal oxidizer flowrate, WD0TN0, lb/sec 
Nominal fuel flowrate, WD/>TNH, lb/sec 
Vehicle loaded weight, VWGTN, lb 
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Nominal thrust -for each engine, FNj^M, lb 
Oxygen engine inlet temperature, TENINj$, R 
Hydrogen engine inlet temperature, TENINH, R 
Component pressure tolerance, PENT0L, Psi 
Oxidizer feedline head height, 0XHTLN, ft 
Fuel feedline head height,’ HYHTLN, ft 
Initial oxidizer loading, Lj$AD01, lb 
Initial fuel loading, L^lADHl, lb . 

Oxygen feedline design pressure, PDL0, psia 
Hydrogen feedline design pressure, PDLH, psia 
Tank geometry data, EQLR1, ft ' 

Oxidizer feedline diameters, ^PD, inches 
Hydrogen feedline diameters, HPD, inches 
Main oxygen feedline lengths, T01ML0, ft 
Main hydrogen feedline lengths, T0iMLH, ft 

In addition, computer values of oxidizer and fuel head heights in the propel- 
lant tanks (HEADI0 and HEADIH), initial ullage volumes (ULVLI0 and ULVLIH), 
external surface areas of the propellant tanks (ASKIN), surface area of the 
common bulkhead (AD$ME) total tank surface area (ATj#T), and feedline flow- 
resistance coefficients (^)KPD and HKPD) are printed. 

Input values of component descriptors are listed in the following order: 



Comp. 

Seq. 

No. 

Component 
Type . 
Flag 

Material 

Flag 

Insulation 

Flag 

Spec. 
No. 1 

Spec . 
No. 2 

Oxidizer 
Main Line 

I 

IDML^(I) 

IMML0( I ) 

IIML^(I) 

SPIML$( I ) 

SP2ML0(l) 

Oxidizer 
Engine Line 

I 

idel^(nl,i) 

imelo(nl,i) 

iielo(nl,i) 

SPIEL0(NL,I) 

SP2EL0(NL,I) 

Fuel Main 
Line 

I 

IDMLH( I ) 

immlh(i) 


SPIMIH(I) 

SP2MLH(I) 

Fuel Engine 
Number NL 

I 

IDELH(NL,I) 

imelh(nl,i) 

iielh(nl,i) 

spielh(nl,i) 

SP2ELH(NL,I) 
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In addition to the basic fixed input data, values of time-varying input 
quantities are output. These include the following variables: 

Time during engine start, TIMEA, sec 

Oxidizer suction pressure requirement, NPSP^, psi 

Fuel suction pressure requirement, NPSPH, psi 

Fraction of steady- state engine thrust, FIFRAC 

Engine inlet oxidizer pressure requirement PEKMN^, psia 

Engine inlet fuel pressure requirement, PETMNH, psia 

Partial pressure of pressurant gas in oxidizer tank, PPDGjfrT, psia 

Partial pressure of pressurant gas in fuel tank, PPDGHT, psia 

Inlet temperature of pressurant gas in oxidizer tank, TDGj$T, R 

Inlet temperature of pressurant gas in fuel tank, TDGHT, R 

Values of several quantities obtained at intermediate stages of the pressure 
drop computations are also output as a function of time. 

These quantities include: 

2 

Oxidizer flowrate derivatives, WDDj^T^, lb/sec 

2 

Fuel flowrate derivatives, WDD^TH, lb/sec 
Total vehicle weight, WGTNU, lb 
Thrust- to-weight ratio, FT^W 

Oxidizer hydrostatic pressure heat at engine inlet due to vehicle 
acceleration, DLPHD 0 , psi 

I 

Incremental oxidizer consumption, PCWGTj#, lb 
Incremental fuel consumption, PCWGTH, lb 
Cumulative total propellant consumption, PR 0 WGT, lb 
Minimum oxidizer engine inlet pressure required, EENG 0 , psia 
Minimum fuel engine inlet pressure required, PENGH, psia 

Additional intermediate output indues pressure drop components as follows: 

Pressure drop required to accelerate oxidizer to meet specified 
flowrates, DEPAC 0 , psi 
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Pressure drop required to accelerate fuel to meet specified 
flowrates, DLPACH, psi 

Oxidizer pressure drop due to line friction and configuration 
losses, DLPLN0, psi 

Fuel pressure drop due to line friction and configuration 
losses, DLPLNH, psi 

Nominal ullage pressure requirements in oxidizer and fuel 
tanks, respectively (without accounting for minimum engine 
inlet requirements), PULL0 and PULLH, psia 

Oxidizer and fuel vapor pressures at the liquid surfaces, 
PULVAP^ and PULVAPH, psia 

Minimum oxidizer and fuel ullage pressures required for main 
feedline No. 1, PULLR0 (NELP) and PULLKH (NELP), psia 

Tank bottom pressures for feedline No. 1, PTKBTj<6 (NELP), and 
PTKBTH (NELP),'psia 

Line head pressure components, PHDLN^ and PHDLNH, psia 
Tank ullage volumes, ULVL02 and ULVLH2, ft^ 

Tank head heights, HEAD02 and HEADH2, ft 
Ullage vapor weights, WTULG^ and WTULGH, lb 


The final computations are printed in the following order. 

Minimum required ullage pressure in oxidizer tank, FULLR0, psia 

Minimum required ullage pressure in fuel tank, PULLKH, psia 

Recomputed tank bottom pressures using minimum required ullage 
pressures, PTKBT^ and PTKBTH, psia 

Recomputed engine inlet pressures using minimum required ullage 
pressures, PENNU0 and PENNUH, psia 

Individual engine feedline weights, WELj$ and WELH, lb 
Total weights of all engine feedlines, WEL^T and WELHT, lb 
Main feedline weights, NMLj6 and WMLH, lb 

Engine and main feedline insulation weights, WELI^T, WELIHT,WMLI0 
WMLIH, lb 

Total feed system weights, WL0TT and WLHTT, lb 


10 


LOCKHEED MISSILES & SPACE COMPANY 



IMSC-A991396 


1.1.2 External Subprograms 


Name 

Type* 

Reference** Name 

Type 

Reference 

MOVER 

S 

ZFIND 

S 


INIVOL 

S 

FINDR 

F 


ULLHED 

s 

PTDENS 

F 


FLORES 

s 

WTCTRL 

S 


PVAPOR 

s 

EXIT 

S 

Transfer control 


to system 


1.1.3 C0MM0N Description 

The COMMON block labeled DIMEN is INCLUDED in the main program STAR and sub- 
routines INIVOL and ULLHED* This block contains the following variables: 


Name Type* ** Dimension 

EQLR R 9 


VI R 

V2 R 

V3 R 

Vb R 

V5 R 

V6 R 

V7 R 


Description 

Array containing tank 
geometry data 

{ Volumes of sections 
of liquid oxygen 
tank 



*P - Program, S - Subroutine, F - Function 
**Page number where subprogram, is described 
***I - Integer, R - Real, L - Logical 
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Name 

Type Dimension 

Description 

VT02 

R 

Total volume LO^ tank 

VTH2 

R 

Total volume LH^ tank 

VT0T 

R 

Total volume both tanks- 

UVL02 

R 

Ullage volume LO^ tank - 

UVLH2 

R 

Ullage volume LHg tank 

HD02 

R 

Liquid height in LO^ tank 

HDH2 

R 

Liquid height in LHg tank 

A1 

R 

( Surface area of sections 

A2 

R 

of LOg tank 

A3 

R j 


A4 

R j 

s. 

A 6 

R 

( Surface area of sections 

A7 

R 

[of LH 2 tank 

AT0T 

R ' 

Total surface area of both tanks 

A SKIN 

R 

External surface area of both tanks 

AD0ME 

R 

Area of common bulkhead 

The C$MM0)N block labeled UC0NST is INCLUDEd in the main program STAR and 

subroutines 

variables: 

ULLHED, G0MTRY and SPHSEG. 

This block contains the following 

Name 

Type Dimension 

Description 

I IN 

I 

Hardware logical input unit number 

I0T 

I 

Hardware logical output unit number 

PI 

R 

3.1415927 

PI 20 3 

R 

2.0943951 


Seven additional labeled C0MM0N blocks contain the significant variables 
used in the main program. Storage allocated for these variables is des- 
cribed in Tables 1-1 through 1-7- 
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Table 1-1 

IAYOUT OF COMMON BLOCK AAA 


Addres^ ^ 

Name 

' ( 2 ' 
Dimension ' 

Description 

0 

FIFRAC 

21 

Fraction of nominal thrust 

25 

TIMEA 

21 

Time values of events in transient 

52 

WDTFRO 

21 

Fraction of oxidizer flowrate 

77 

WDTFRH 

21 

Fraction of fuel flowrate 

124 

NPSPO 

21 

Net positive suction pressurefor. oxidizer 

151 

NPSPH 

21 

Net positive suction pressure for fuel 

176 

PPDGOT 

36 

Partial pressure of oxidizer pressurant gas 

242 

PPDGHT 

36 

Partial pressure of fuel pressurant gas 

306 

TLIQSO 


Temperature of oxid zer liquid surface in tank 

307 

TLIQUH 


Temperature of fuel liquid surface in tank 

310 

TSVAPO 


Temperature of oxidizer liquid surface in tank 

311 

TSVAPH 


Temperature of fuel liquid surface in tank 

312 

TDGOT 

35 

Temperature of oxidizer pressurant gas 

355 

TDGHT 

35 

Temperature of fuel pressurant gas 

420 

LQAD01 


Loaded weight of oxidizer 

421 

L0ADH1 


Loaded weight of fuel 

422 

LQAD02 


Loaded volume of oxidizer 

423 

LQADH2 


Loaded volume of fuel 


Table 1-2 

LAYOUT OF COMMON BLOCK BBB 


Address 

Name 

Dimension 

Description 

0 

1 

2 

3 

4 

5 

6 

NSIZE 

SYSNUM 

_N0P 

N0P1 

IGOON 

NFTS 

MPTS 

— 

Total number of feedlines per tank 
Propellant selection flag 

Number_of_ engines. _f.ed by_a -main -feedline 

Number of engines on vehicle 
Restart flag 

Number of time points in start transient 
NPTS-1 


Note: (l) Address in octal notation 

(2) Decimal dimension 
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Table 1-3 

IAYOUT OF COMMON BLOCK CCC 


Address 

Name 

Dimension 

Description 

0 

GC 


2 . 

Acceleration of gravity, 32.172 fps 

1 

RHOOX 


Oxidizer density 

2 

RHOHY 


Fuel density 

3 

VWGTN 


Total vehicle weight at ignition 


Table 1-4 

IAYOUT OF COMMON BLOCK DDD 


Address 

Name 

Dimension 

Description 

0 

WDOTNO 


Nominal oxidizer flowrate per engine 

1 

WDOTNH 


Nominal fuel flowrate per engine 

2 

FNOM 


Nominal thrust per engine 

3 

OPIPEL 

16 

Oxidizer feedline lengths 

2 

HPIPEL 

16 

Fuel feedline lengths 

43 

OPD 

16 

Oxidizer feedline diameters 

63 

HPD 

16 

Fuel feedline diameters 

103 

OKPD 

16 

Oxidizer feedline flow resistance coefficients 

123 

HKPD 

16 

Fuel feedline flow resistance coefficients 

143 

ST 

7 

Alphanumeric title 

152 

OXHTLN 


Oxidizer lead height in feedline 

153 

HYHTLN 


Fuel lead height in feedline 

154 

PENMNO 

30 

Minimum engine inlet oxidizer pressures 

212 

PENMNH 

30 

Minimum engine inlet fuel pressures 

250 

PENTOL 


Component pressure tolerance 

251 

TENINO 


Temperature of oxidizer at engine inlet 

252 

TENINH 


Temperature of fuel at engine inlet 
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Table 1-5 

LAYOUT OF COMMON BLOCK EEE 


Address 

Name 

Dimension 

Description 

0 

OPDUM 


Oxidizer line length used in acceleration calcs. 

1 

ODDUM 


Square of oxidizer line diameter 

2 

HPDUM 


Fuel line length used in acceleration calcs. 

3 

HDDUM 


Square of fuel line diameter 

4 

VWOTCH 


Variable used in vehicle weight calculations 

5 

ODLDUM 


Fourth power of oxidizer line diameter 

6 

OCAYP 


Variable used in pressure drop calculations 

7 

ODTINC 


Not used 

10 

HDLDUM 


Fourth power of fuel line diameter 

11 

HCAYP 


Variable used in pressure drop calculations 

12 

HDTINC 


Not used 

13 

TVAPO 


Equivalent oxidizer engine inlet temperature 

14 

TVAPH 


Equivalent fuel engine inlet temperature 

15 

PVAPO 


Oxidizer vapor pressure 

16 

PVPENO 


Oxidizer vapor pressure at engine inelt 

17 

PVAPH 


Fuel vapor pressure 

20 

PVPENH 


Fuel vapor pressure at engine inlet 

21 

PNCWGT 


Equivalent cumulative propellant consumption 
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Table 1-6 

IAYOUT OF COMMON BLOCK FFF 


Address 

Name 

Dimension 

Description 

0 

WDDOTO 

20 

Oxidizer flowrate derivative 

24 

WDDOTH 

20 

Fuel flowrate derivative 

50 

ZLPACO 

20 

Not used 

74 

ZLPACH 

20 

Not used 

120 

VWGTNU 

20 

Vehicle weight 

144 

FTOW 

20 

Thrust-to-weight ratio 

170 

DIFWGT 

20 

Propellant flowrate increment 

214 ■ 

DLPHDO 

20 

Oxidizer pressure head in tank 

240 

DLPHDH 

20 

Fuel pressure head in tank 

264 

ZLPLNO 

20 

Not used 

310 

ZLPLNH 

20 

Not used 

334 

PEN GO 

20 

Minimum oxidizer engine inlet pressure 

360 

PENGH 

20 

Minimum fuel engine inlet pressure 

4o4 

PCWGTO 

20 

Incremental oxidizer consumption 

430 

PCWGTH 

20 

Incremental fuel consumption 

454 

PUVAPO 


Oxidizer vapor pressure at liquid surface 

455 

PSVAPO 


(Same as PUVAPO) 

456 

PUVAPH 


Fuel vapor pressure at liquid surface 

457 

PSVAPH 


(Same as PUVAPH) 

460 

PPVAPO 


Not used 

461 

PPVAPH 


Not used 

462 

ULVLIO 


Initial ullage volume in oxidizer tank 

463 ' 

ULVLIH 


Initial ullage volume in fuel tank 

464 

HEADIO 


Oxidizer head height in the tank 

465 

HEADIH 


Fuel head height in the tank 


Table 1-7 

IAYOUT OF COMMON BLOCK GGG 



Name 

Dimension 

Description 

0 

WTULGO 

35 

Oxidizer tank ullage vapor weight 

43 

WTULGH 

35 

Fuel tank ullage vapor weight 

106 

ULV02 


Not used 

107 

ULVH2 


Not used 

110 

HEAD 02 

35 

Oxidizer tank head height 

153 

HEADH2 

35 

Fuel tank head height 

216 

ULVL02 

35 

Oxidizer tank ullage volume 

261 

ULVLH2 

35 

Fuel tank ullage volume 
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1.1.4 Significant Variables 

In addition to the variables defined in Tables 1-1 through 1-7, the following 
quantities are significant in the operation of program STAR: 


Name 

Type 

Dimension 

Description 

IP 

I 

16 

Input data flag 

WEL0T 

R 

16 

Total oxidizer engine feedline weight 

WE LET 

R 

16 

Total fuel engine feedline weight 

UML0 

R 

16 

Main oxidizer feedline weight 

WMLH 

R 

16 

Main fuel feedline weight 

WL0TT 

R 

16 

Total oxidizer feed system weight 

WLHTT 

R 

16 

Total fuel feed system weight 


1.1.5 Tape Usage 

No tapes are used by this program. 

1.1.6 Flow Chart and Listing Reference 


STAR Flow Chart 

Fig. 

1-1 

STAR Program Listing 

Page 

B-2 

Variable Table 

Page 

C-3 

Statement Number Table 

Page 

C- 10 

Transfer Table 

Page 

C- 15 


1.1.7 Subprogram Descriptions 

Each subprogram of STAR will be described using the following format: 
Description 

Description will briefly describe the subprogram. 

Calling Sequence 

Calling Sequence will contain the following elements: 
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Name Type i/O Dimension Description 

Name is the name of the variable in the calling sequence. 

Type indicates the type of the variable; I - integer, R - real, or L - logical 

i/O indicates if the variable is input (i) to the routine through the calling 
sequence, output (0) from this routine through the calling sequence, or i/O 
if both. . 

Significant Variables 

Significant Variables will contain the following elements: 

Name Type Dimension Description 

The elements of Significant Variables will be as described under Calling 
Sequence. 

Subprograms Referenced in this Subprogram 


Name Type 


Reference 


The elements of Subprograms Referencing this Subprogram will be the same as 
described under Subprograms Referenced in this Subprogram. 

Flow Chart and Listing Reference 

Flow Chart references the figure number of the applicable flow chart. Appen- 
dix A illustrates and explains the flow chart symbols. 

Listing references include the page numbers of the S0PSA listings and sub- 
routine dictionary listings where the subroutine listing, variable table, 
statement number table, and transfer table may be found. 
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Fig. 1-1 STAR Flow Chart 


*NOTE: TITLE CARD AND INPUT DATA FIAG CARD ARE REQUIRED FOR EACH CASE. 

THE REMAINING DATA MUST BE SUPPLIED FOR THE FIRST CASE; SUBSEQUENT 
CASES (RESTARTS) REQUIRE ONLY THAT REVISED DATA GROUPS BE INPUT 
(SEE SOPSA USER'S MANUAL, PAGE ). 
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Compute tank volumes 
and surface areas 


Compute initial ullage 
volumes and head 
heights for tanks 


Compute ullage volumes 
and head heights in 
tanks as F(t) 


Fig. 1-1 STAR Flow Chart (Cont'd) 
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Compute flow 
resistance coefficients 


Compute propellant 
vapor pressure as a 
function of temperature 


Fig. 1-1 STAR Flow Chart (Cont'd) 
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Compute propellant 
vapor pressure as a 
function of temperature 


Fig. 1-1 STAR Flow Chart (Cont’d) 
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Compressibility factor 
for oxygen 


Gas constant for 
oxygen 


Density of hydrogen 
vapor 


Fig. 1-1 STAR Flow Chart (Cont'd) 
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Compute individual 
line and component 
weights 


Return control to 
system 


Fig. 1-1 STAR Flow Chart (Cont'd) 
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1.1. 7.1 Subroutine INIVOL 
Description 

Subroutine INIVOL computes the volume and surface areas of individual sections 
of the propellant tanks using the dimensions supplied in input data group 2. 

The individual volumes and areas are summed for each tank and the total external 
surface area is computed. 

Calling Sequence 

CALL INIV0L 

Significant Variables 


Name 

Type 

Dimension 

Description 

VT02 

R 


Volume oxygen tank 

VTH2 

R 


Volume hydrogen tank 

VT0T 

R 


Total tank volume 

A SKIN 

R 


External surface area 

AD0ME 

R 


Area of common bulkhead 


Subprograms Referenced in 

this Subprogram 


Name 

Type 

Reference 

G^MTRY 

F 

38 


-Subprograms Referencing this Subprogram 


Name Type ■ 

STAR P 


Reference 

6 
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Flow Chart and Listing Reference 


INI VOL Flow Chart 

None 

INIVOL Program Listing 

Page B-27 

Variable Table 

Page C-16 

Statement Number Table 

None 

Transfer Table 

Page C- 17 


1.1. 7.2 Subroutine ULLHED 
Description 

This subroutine uses the given values of propellant volumes and tank dimen- 
sions to compute ullage volumes and liquid head heights in the tanks. 

Calling Sequence 

CALL ULLHED (Lj$AD02, Lj$ADH2 ) 


Name 

Type 

I/O Dimension 

Description 

LjZkD02 

R 

I 

Oxidizer volume 

L0ADH2 

R 

I 

Fuel volume 

Significant Variables 



Name 

Type 

Dimension 

Description 

UVL02 

R 


Oxidizer ullage volume 

UVLH2 

R 


Full ullage volume 

HDjfc 

R 


Oxidizer head height 

HDH2 

R 


Fuel head height 

Subprograms 

Referenced 

in this Subprogram 



Name 

Type 

Reference 

SPHSEG 

S 

4l 
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Subprogram Referencing this Subprogram 

Name Type Reference 

STAR P 1-2 

Flow Chart and Listing Reference 

ULLffED Flow Chart 
ULLHED Program Listing 
Variable Table 
Statement Number Table 
Transfer Table 

1.1. 7-3 Subroutine FLORES 
Description 

This subroutine uses empirical correlations for pressure drop in turbulent 
flow (Reynold's No. greater than 10 ) to compute flow resistance coefficients 
due to configuration losses for the configurations defined in Table 1-1 of 
the SOPSA Program User's Manual. 

Calling Sequence 

CALL FL0RES (ID, D, SI, S2, RES) 


Name 

Type 

I/O 

Dimension 

Description 

ID 

I 

I 


Component ID number 

D 

R 

I 


Diameter 

SI 

R 

I 


Component specification No. 1 

S2 

R 

I 


Component specification No. 2 

RES 

R 

0 


Flow resistance factor 
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Significant Variables 


None 

Subprograms Referenced in this Subprogram 
None 

Subprograms Referencing this Subprogram 

Name Type Reference 

STAR P 6 

Flow Chart and Listing Reference 


FLORES Flow Chart None 

FLORES Program Listing Page B-29 

Variable Table Page C-22 

Statement Number Table Page C-23 

Transfer Table ’ Page C-24 


1.1.7-*+ Subroutine FVAPOR 
Description 

Subroutine FVAPOR computes the saturation vapor pressure of a_ liquid given 
the value of liquid temperature. 

Calling Sequence 

_ _CALL_PVAP^R_ (_T,_I.,_.P_) 
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Name 

Type 

I/O 

Dimension 

T 

R 

I 


I 

I 

I 


P 

R 

0 



Description 

Liquid temperature 
Fluid type flag, 
1=1 for oxygen 
1=2 for hydrogen 
Vapor pressure 


Significant Variables 


None 


Subprograms Referenced in this Subprogram 


None 

Subprograms Referencing this Subprogram 

Name Type Reference 

STAR P 6 

ZFIND S 31 

Flowchart and Listing Reference 


PVAPOR Flow Chart 
PVAPOR Program Listing 
Variable Table 
Statement Number Table 
Transfer Table 


None 

Page B- 32 
Page C-25 
Page C-26 
Page C-27 
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1.1. 7. 5 Subroutine ZFIND 
Description 

Subroutine ZFIND computes the compressibility of a gas given its temperature 
and pressure. 

Calling Sequence 

CALL ZFIND (T, P, N, V) 

Name Type I/O 

T R I 

P R I 

N I I 

V R 0 

Significant Variables 
None 

Subprogram Referenced in this Subprogram 

Name . Type Reference 

PVAPOR S 29 

ptdens F -33 

Subprograms Referencing this Subprogram 

Name Type Reference ■ 

STAR P 6 ~' 


Dimension Description 

Temperature 

Pressure 

Gas type flag, N = 1 
. for oxygen, N = 2 for 
hydrogen. 

Compressibility factor 
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Flow Chart and Listing Reference 


ZFIND Flow Chart 

None 


ZFIND Program Listing 

Page 

B- 33 

Variable Table 

Page 

C-28 

Statement Number Table 

Page 

c-29 

Transfer Table 

Page 

C- 30 


1.1. 7.6 Function FINDR 
Description 

Function FINDR supplies the gas constant corresponding to an input gas type 
flag. 

Calling Sequence 

R = FINDR (N) 

Type i/ 0 Dimension Description 

I I Gas type flag, 

N = 1 for oxygen, 

N = 2 for hydrogen 

Significant Variables 
None 

Subprograms Referenced in this Subprogram 


Name 

N 


None 
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Subprograms Referencing this Subprogram 


Name Type Reference 

STAR P 6 

Flow Chart and Listing Reference 


FINDR Flow Chart 
FINDR Program Listing 
Variable Table 
Statement Number Table 
Transfer Table 

1.1. 7. 7 Function PTDENS 


None 

Page B -35 
Page C - 31 
None 

Page C- 32 


Description 

Function PTDENS returns the density of hydrogen vapor corresponding to input 
values of vapor pressure and temperature. 

Calling Sequence 

RH0 = PTDENS (PRES, TEMP) 

Type i/O Dimension Description 

R I Gas pressure 

R I Gas temperature 

Significant Variables 
None 


Name 

PRES 

TEMP 
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Subprograms Referenced in this Subprogram 


None 

Subprograms Referencing this Subprogram 


Name Type Reference 

STAR P 6 

ZFIND S 31 ’ 

Flow Chart and Listing Reference 

PTDENS Flow Chart 
PTDENS Program Listing 
Variable Table 
Statement Number Table 
Transfer Table 

1.1. 7-8 Subroutine WTCTRL 


None 

Page B- 36 
Page C- 33 
Page C- 34 
Page C- 35 


Description 

Subroutine WTCTRL uses empirical correlations for weight as a function of 
nominal size to obtain the weight of components described in Table 1-1 of. 
the SOPSA Program User's Manual. 

Calling Sequence 

Call WTCTRL (P, I, IM, II, D, SI, S2, S3, IV, IF, WT, Wl) 
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Name 

Type 

i/O Dimension 

.•Description 

P 

R 

I 

Internal fluid presssre 

I 

I 

I 

Component type flag 

IM 

I 

I 

Material flag 

II 

I 

I 

Insulation flag 

D 

R 

I 

Nominal line diameter 

SI 

R 

I 

Component specification No. 1 

S2 

R 

I 

Component specification No. 2 

S3 

R 

I 

Component specification No. 3 

IV 

I 

I 

Valve weight flag 

IF 

I 

I 

Fluid type flag 

WT 

R 

0 

Component weight 

WI 

R 

0 

Insulation weight 

Significant 

Variables 



None 




Subprograms 

Referenced 

in this Subprogram 


Name 

Type 

Reference 


CBWT 

F 

37 


GFTW 

F 

36 

f. 

1 

Subprogram Referencing 

this Subprogram 

’ 


Name 

Type 

Reference 

STAR 

P 

6 
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Flow Chart and Listing Reference 


WTCTRL Flow Chart 

None 


WTCTRL Program Listing 

Page 

B-Ao 

Variable Table 

Page 

c- 36 

Statement Number Table 

Page 

C- 37 

Transfer Table 

Page 

C-38 


1.1. 7.9 Function CFTW 
Description 

Function CFTW computes the weight of valves and disconnects described in 
Table 1-1 of the SOPSA Program User's Manual. 

Calling Sequence 

WT = CFTW (D, P, IDV) 

Type i/ 0 Dimension Description 

R I Nominal diameter 

R I Internal pressure 

I I Valve type flag 

Significant Variables 


Name 

D 

P 

IDV 


None 

Subprograms Referenced in this Subprogram 
None 
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Subprograms Referencing this Subprogram 


Name Type Reference 

WTCTRL S 34 

Flow Chart and Listing Reference 


CFTW Flow Chart 
CFTW Program Listing 
Variable Table 
Statement Number Table 
Transfer Table 

1.1.7.10 Function CBWT 


None 

Page B- 42 
Page C - 39 
Page C-4o 
Page C-4l 


Description 

Function CBWT computes the weight of the various types of bellows and pressure 
volume compensators described in Table 1-1 of the SOPSA Program User's Manual. 


Calling Sequence 

WT = CBWT (D, P, IB) 


_ Name 

Type 

1/0 . 

Dimension 

Description 

D 

R 

I 


Nominal diameter 

P 

R 

I 


Internal pressure 

IB 

I 

I 


Bellows type flag 


Significant Variables 


None 
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Subprograms Referenced in this Subprogram 


None 

Subprograms Referencing this Subprogram 


Name Type Reference 

WTCTRL S 3A 

Flow Chart and Listing Reference 


CBWT Flow Chart 

None 


CBWT Program Listing 

Page 

B-^3 

Variable Table 

Page 

C-42 

Statement Number Table 

Page 

C-l+3 

Transfer Table 

Page 

C-kk 


i. 1. 7 . 11 Function GCMTRY 
Description 

Function GCMTRY computes the volume and/or area of a variety of geometrical 
surface of revolution. This function consists of a variety of subfunctions 
each of which is accessed by an ENTRY whose name describes the geometrical 
figure desired. 

Calling Sequence 

The calling sequence for functions of each type of surface is as follows: 
Volume of Circular Cone 


V = CONE (R, H) 
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Name 

Type 

Description 

R 

R 

Radius of base of cone 

H 

R 

Height of cone 

Volume 

of Right-Circular Cylinder 

V = 

= CYLNDR (R,H) 

Name 

Type 

Description 

R 

R 

Radius of cylinder 

H 

R 

Height of cylinder 

Volume 

Contained Between Cylinder and Spheroid 

V = 

= CYLSPH (RR0T,R) 

Name 

Type 

Description 

RR0T 

R 

Height of cylinder (spheroid) 

R 

R 

Radius of cylinder 

Volume 

of Frustum 

of Right- Circular Cone 

V = 

= FRCONE (R, 

H, R2) 

Name- 

Type 

Description 

R 

R 

Radius at top of cone 

H 

R 

Height of cone 

R2 

R 

Radius of base of cone 


Volume of Hemisphere or Half-Spheroid 
V = HSPHEE (RR0T, R) 
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Name Type Description 

RR$T R Height along axis of. rotation 

R R Radius 

Volume of Sphere or Spheroid 
V = SPHERE (RR0T,R) 

Name Type Description 

RR^T R Height along axis of rotation 

R R Radius 

Area of Cylinder 

A = ARACYL (R, H) ' 

Arguments defined as in CYLNDR. 

Area of Conical Frustum 
A = AFEAFR (R, H, R2) 

Arguments defined as in FRC^NE. 

Area of Hemi-Spheroid or Hemisphere 
A = ARSPRR (RR0T, R) 

Arguments defined as in HSPHER. 

Significant Variables 
None 

Subprograms Referenced in this Subprogram 
None 
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Subprograms Referencing this Subprogram 

Name Type Reference 

INI VOL S 26 

Flow Chart and Listing Reference 


GOMTRY Flow Chart 

None 


GCMTRY Program Listing 

Page 

B-44 

Variable Table 

Page 

C-45 

Statement Number Table 

Page 

c-46 

Transfer Table 

Page 

C-47 


1.1.7.12 Subroutine SPHSEG 
Description 

Subroutine SPHSEG computes the height of a given volume of liquid (head height) 
in an ellipsoid of revolution (including a hemisphere) or in the volume between 
a cylinder and a spheroid. One of two entries are used depending on the geo- 
metry involved. 

Calling Sequence 


The calling sequence for computing head heights contained in each type of volume 
is as follows: , . 


Ellipsoidal Volume 

H = ELIPSG (FV0L, RAD, RPD, H) 


Name 

- 'Type - 

— Description - “ - - - - - _ 

pvj6l 

R 

Ullage vapor volume 

RAD 

R 

Height of ellipse along axis of rotation 

RPD 

R 

Radius 

H 

R 

Liquid head height 
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Volume Between Cylinder and Spheroid 
H = CYMSPH ( PV0L, RAD, RPD, H) 


Name 

Type 

Description 

pvj 6 l 

R 

Ullage vapor volume 

RAD 

R 

Height along axis of rotation 

RPD 

R 

Radius of cylinder 

H 

R 

Liquid head height 

Significant 

Variables 


None 



Subprograms 

Referencing 

this Subprogram 

Name 

Type 

Reference 

ULLHED 

S 

27 


Flow Chart and Listing Reference 


SPHSEG Flow Chart 
SPHSEG Program Listing 
Variable Table 
Statement Number Table 
Transfer Table 


None 

Page B-46 
Page C-48 
Page C-4-9 
Page C -50 
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Section 2 
PROGRAM OPERATION 

Input deck setup and input data requirements for the SOPSA program are 
described in detail in the SOPSA Program User's Manual-. This program 
has been developed using the EXEC 8 operating system on the UNIVAC 1108 
operating system. The SOPSA program can be compiled and executed on 
comparable systems containing the FORTRAN V utility and standard UNIVAC 
routines described in Section 4 below. 

2.1 NORMAL PROGRAM EXECUTION 

During normal operation, the program will read input data, perform the 
required operations, and print the final results. No intermediate out- 
put is provided, so that in the event of an input data error, the user 
must diagnose the malfunction from the final printed output. 

2.2 ABNORMAL PROGRAM EXECUTION 

In the event that the program does not produce a final data printout, the 
user must diagnose the error by rechecking input data types and formats. 
Diagnostic printouts are provided in two subroutines, ULLHED and SPHSEG. 
The ULLHED diagnostic is of the form 

'ULLAGE VOLUME IS NEGATIVE'' 

and indicates that input tank geometry data is not compatible with the 
specified propellant loading. 

The SPHSEG diagnostic is of the form 

'ERROR INPUT TO SPHSEG’ 

and indicates that input tank geometry data are not correct. 
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Section 3 
LIBRARY ROUTINES 

The SOPSA program uses both Lockheed system routines and FORTRAN : utility 
routines, in addition to the UNIVAC 1108, EXEC 8, system routines. 

3.1 LOCKHEED SYSTEM ROUTINES 

The Lockheed system contains a standard library of FORTRAN V mathematical 
function routines, of which the following are used by SOPSA: 


SORT 

EXP 

CPS 

ASIN 

ACOS 

ATAN 

A LOG 

3.2 FORTRAN UTILITY ROUTINES 


Square root 

Exponential 

Cosine 

Arcsine 

Arccosine 

Arctangent 

Natural logarithm (log x) 


3.2.1 Subroutine MOVER 

The subroutine MOVER is available to permit rapid transfer of data words 
from one area to another. The 1108 block transfer is used; thus, the use 
of MOVER will be considerably faster than a corresponding transfer of data 
by a DO- loop. It is used as follows: 


CALL MOVER (FROM, INCF, TO, INCT, NWDS) 
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where 

FROM is the array from which data are moved. 

INCF is the increment to he used in selecting data from the FROM array. 

TO is the array to which data are moved. 

INCT is the increment to be used in placing data into the TO array. 

NWDS is the number of words to transfer. 

NOTE: MOVER checks to see if the argument NWDS is negative. It it is, 

the run is "errored off." 
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SYMBOL 



O 



APPENDIX A 
FLOW CHART SYMBOLS 


DEFINITION 


Subprogram Reference 


Processing Function 


Step Connector 


i 

Program Modification or 
Decision Function 
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APPENDIX B 

SOPSA PROGRAM LISTINGS 

This Appendix contains a symbolic listing of the FORTRAN V code 
for the SOPSA main program and subprograms. 
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THIS PAGE IS BLANK 
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1, C ••••••«•• ••••••••••••••••••• »STaR303i 

2, C • •ST4R3C12 

3, C • •• ENGINE START TRANSIENT ANALYSIS PROGRAM •• •STaR'033 

A, C • »STaH30".A 

5, C • •• THE Program 1,d. CODE [S - F013Q6 • **S7aR3035 

6, C • oSTaM3036 

7, C • PROGRAMMED BY R.P,HAoS m A‘!« DEPT 62-1J. BLOG 104, 3-0235 •SUR0017 

a, C • HCVISEO BY R.M, VERNON* O^PT, 62-93, 1LDG 562, 24365 »S1aR'J036 

9, C • • 5 T A R 3 0 3 9 

10, C •••••»••••••••••••••••••••••••••• »3T AR3010 


11, C SrA«30ll 

12, C STAR3012 

13, INCLUDE Dl mNiL 1ST STAH3013 

ia, Include uconst.list stasdcia 

12, DIMENSION 3 IP *'GT ( 23 > , FT0V( 20 ) , ClPHDOI 2U I »DLPHOh( 20 ) , VWGTNUI 20) SUR3015 

16, DIMENSION 3F *'G T 0 ( 2 3 ) , D rw GTW< 2o ) i f’C WEI Ol 20 1 i PCA'CTw ( 20 ) STAR30!6 

17, OIMflSiC'i -OLRlI 9 > • S T A R 3 0 1 7 

16, DIMENSION ?IFRAC(21),TINFA(2l),«DTFRC(2i>,A0TFRR(2l) STaROOU 

19, DIMENSION HE4D32t35),HEAnh2<35> ST AR3C19 

20, DIMENSION ■<P3(i6>fNPlPEL(i«) ( H l <Pa(l6) ( CPO<16liaPtPEL(16>i0KP0(161 SUf<.3320 

21, DIMENSION p I ( 1 ) , GC 1 1 ) , RH00X 1 1 ) * RHOHyI 1 ) * Vw GT*I( 1 ) , PN0M( 1 ) STaH30?1 

22, DIMENSION PENC3(20)iP£ , )Gw(20),NPSPO(2l) t NPSPH(21) STAR3022 

23, DIMENSION p£NA:\0( 3 3 ) , PF NM| v m ( J o I STAR3023 

24, DIMENSION TDGCT(35)iT0r.HT(35) STAR3024 

26. DIMENSION TEN I 'jO( 1 ) , TEN l Nh( 1 ) star:g?3 

26. DIMENSION TL J OSOU > I TL 1 0SM1 > , PPOGOT < 3* 1 .PPDGHT C 36 ) S T A K 3 0 2 6 

27, DIMENSION YL'302l35).VL0M2(3>),LLVL02(3SIiULVLH2(35> STAR3027 

26, DIMENSION W50T yO( 1 ) » VDOTnM 1 ) , CXHTLNt 1 ) (HYHTLM 1 ) *ST( 7 ) STAR3023 

29, DIMENSION WDD0T0(21 J,wnD0TM(20) S T A R 3 1) 2 9 

30, DIMENSION jTULG0l3S),wTULr,M(35) STAR30S0 

31, DIMENSION ?L p A:0(2)),Zt.PAC l '<20),7LRLNO(20).ZLPLNH(20),PROWGT(20) STAR3031 

32, DIMENSION 0L p A;O(l6,20!(OLPACH«16, 201 STAR3032 

33, DIMENSION 3L p L\Q116,20IiDlPLNhI 1 6 , 20 7 ST4R3CJ3 

3A, .. DIMENSION PENNj0(l6,3S)> o ENNij H ll6,35>,PEN,M’J0(lA,35),PENMDH(16,35) STAR3034 

35, DIMENSION »l!LLO( 16*2 o>.PUUH( 1*i20I STahHOIS 

36, OIMEnsIqN 9T<BT0(1»*35»*PT><3ThI1A,35>,PhULN0{35),PwDINH(35) STAH3C36 

37, DIMENSION PULMS0135 I ,PULLRC< 16i35I,PUlmnh( 35) ,pjlLRR( 16(35) STaR3037 

33 , DIMENSION SP3M. 0(130), SP3tLO(A»lflO),SP3MLHllOO),SP3ELH ! (A,ioO) ST AR30 38 

39, OIMENSlON WMLIOtl6)iWEl.IO(l6,«),«ELICTU6)(WUOT(16)|WLOTT<16) STAH0039 

AJ. DIMENSION wMLHU6),wEL!M(16,A)|NElIHT116),WL1mT(16>,WLHTT(16) STAR3040 

41, OIMENSlON IPdS) STAR'JOAl 

42, DIMENSION MIDE.0I4), IOMLO( lOO ) I I IML0(10U),SP1 Ml0( 100),'SP2MLO( 100) STAH30A2 

43, OIMENSlON |0tL3<4,100).t*EL0U.l0C>,lltL0O,l00),SPlEL0<4,100) S T AR GO 4 3 

44, OIMENSlON 3P2E.O(4,loO)*lMMLM(lOO),:MM.LO(UO) stahooaa 

45 , DIMENSION MIDE.H(4 ), io«LH( 1 OC ) i I IMlh( 10U ) ,3P1MlH( 100) ,SP2.MLH< 100> STaR'045 

16, DIMENSION ICELMl4,10c),! M F.LM<4,iOO),l IfcLM(4,100),SPlE,LH<4,100) STAP3046 

A7, OIMENSlON SP2E.H<4,100>» ICOtlUO), IDHll'JU), IOUE(4,100). IDHE<4,100) STAH3047 

46, DIMENSION SUM 1 MO(2a)tSUMMH(20),PTDTMOU6)iPTBTMH(l6).PMAXO(161 STAR304B 

49, DIMENSION PKAX ■(( 16 ) » SUMNO( 20 ) , SyMNw (20),PDESD(16),P0ESh(16) STAR3049 
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*i, 

S2, 

*3, 

3*. 

35, 

36, 

37, 
56, 
S’, 
SC, 
01, 
02, 
*■», 
««, 

65, 

66 , 

67, 

68, 
O’, 
70, 
»i, 

72, 

73, 

7 S 

75, 

76, 

77, 
70. 
79. 
8C, 
**1, 
02. 
05. 

84, 

85, 
<•6, 
67,. 
66, 

h ’. 

90, 

’I.' 

92, 

93, 
9“. . 

95. 

96. 

97. 
«5. 
99. 

100 , 
101 , 
102 , 

103, 

104, 
106, 
106, 
107, 


DIMENSION 02 1 2 ) , H2( 2 ) » »Elh< 16 , 4 ) , KEL W T( 16 ) # WMLH( 16 ) , WehT ( 16 ) ST 4R 7050 

Ol w t!.'Sl ON -ElO( 16, « ),WEL0TU6) ,WMLO< 16 ) iWLOT ( 16 ) 3TAR3051 

DIMENSION A00< 16 ) , A0n< 16 ) 51463052 

D li v ’tMS ! ON 460(5504 ) STaR'053 

EUl! I'/ALENC; (4 3C,WELO).<4BC(65),'»tU0T )»(480(H1 ),wMl 0),(ARC(97>,WLO5TAK3054 
lT),(Ao0(113).WELH),(ABC<177).wELMT),(AUC(193),w'lLR),<AbC(209l,WLHTSTAKD055 
2 ), t ARC< 225 J.OL^CO) ,< ABC ( 545), CL p ACH), (ABC ( 865 ),nLPLNQ>, (ABC (1185) STARTS 
3,0UPL^"')i(ABC(l505),PE'lNljO),tAHC(206b),Rt^(UH),(AaC(2625),PULLC)i STAP.0057 
4( AHC< 2 ’ 4 b ), pjl_H ),<APC< 3265 >, PT<3T0I<<4BC (3825 >,PTK3TH> i UBC<4385)ST4R1(T>8 


3»PUlLH0),UBC<4945>iPULLRh> 

INTe^E* SYSNUm 

HEAL N 3 SP0,,VPS=H 

REAL LOAnoi,LOAOHl,LOA002.LOADH2 

COMMON/aAa/FIFTAC, T!n£a, WcTFRo, WDTFRH.f.pSPO.NPsPw 
COMMON/AAA/PPDOOT .PPDGwT.TLiasC.TLlQSHtTSvAPO.TSvAPH 
COMMON/ A44/TOCOT.TOCHT 
COM.-1(Vv,7aAA/l04D01,L0aOr1.l04Co2.L0AO^2 
CONKO.N/BBB/NS 1 ze , STSVOP • NnP ♦ L - O p 1 • 1 COfMi W»Ti,MPTS 
COMMOn/CCC/GC, RHCOX,PH riHY,V<GTN 

COMMON7000/W30TN0, 6DO.TNH,e*:Om,:pIPEL,hPIPEL,OPO,hPDiOKPD.HKPO,ST< 
lOXHTLN<H Y HTLM, : >fcl.l' , '*0,PPN. , 6NW,PFNTCL,Tl'-:lNO, TEHINM 
CO“I60\7EEE/OPCJM,OOOUH,HPCUM,R , 'DUH, vWGTCH, 0DLDU'1,0C4VP,0DTINC, 
IHOLOUMiHCayP^JTINCjTVaPO.TVaP^.PVAPC.pvPE <0,PVAPH,PVP£NM,PNCWCT 
C0.5MO.N / PPF/W003TO.-'DC0TH,ZLP4CC,ZLP4f.H,VWCTNU 1 FTr>H,DIFwCT,DLPHDO, 
IOLPHOh, ZLP^NO, zlplnh, pfngo, pengh ,pc«gtc»pc<cth 
C 0MMnN7FFF/PUV4P0.PSvAP0,PUVAPL,PSVAPH|PPV4PU,PPvAPH 
C0HM0Ni/FFF/ULV.{t.,ULVLIH,HE4ClC,HfcA0lH 
COWON'GSC/WTU.GO, <TULGH,ulV02<UUVm2,HEAD02,HEaDm2 
C0MMO,N/GGG/ULV w O2.ULVLH2 . 

DATA FEET, SC/12, ,32,172/ 

OATA 02/'0XYGEM' , ' '/w2/'HYDR0G','EN •/ 

DATA R^OOx,RR0HY/70,9,4,396/ 

DATA 1 IN, I OTiPI <PI203/5»6, 3.1415927, 2,094 3751/ 

CALL MOvER<0,0.A(tC. 1,5504) 

I CASE *0 


HEAD IN The JN8UT DATA DECK 

••• INPUT DATA DEFINITIONS ••• 


ST » ANALYSIS TITLE CARD - SPECIFIES ENGINE CONSIDERED 

this card bust be sufplied for each case 


10 READ (5,15)(ST(1), 1*1,7) 
15 E ORM aT ( 7 A6 ) 

ICASE*ICASE*1 


DO 20 <*1,16 
I P ( K ) * 0 
20 CONTINUE 


INPUT Data flass 


START03? 

STAR0C60 

STAR3061 

STAR0C62 
ST aR' 063 
ST AR0064 
STAR3065 
STAR3066 
STAR 3067 
STAR0063 
ST AR 3069 
ST4R007O 
STAROO’l 
ST AP.30 72 
STAS0073 
S T aROO 74 
PTART075 
STaROC’6 
STAR0077 
STAH207S 
STAR0079 
STaROOTO 
STAR3031 
STAW3032 
3 f A R 0 0 3 3 
ST ARjC54 
SUH30-35 
STAR'S 16 
STARD017 
STAR 0083 

•ST4K0019 

STaROO’O 

STAROO’l 

STaR00’2 

ST4R0073 

•ST4R0094 

STAR0C75- 

ST4R0096 

ST4R0097 

5T4R0098 

STAR0099 

STAR0130 

•STAROlOl 

STAR0102 

STAR3103 

STAR0104 

•STAR0105 

STARD106 

STAR0107 
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l'Jtt, C This c*R3 MUST BE supplied for EACH CASE STiRDiae 

109 1 C SUR3119 

110. HEAD <S.25)UP(K),<*1.1») STaROUO 

111. 25 FORMAT 1 1 A 1 1 ) STaROUI 

112. IF t!Pll).l.T,l> 00 TO 53 STAR3U2 

113. C ••••••••* 13 

11 4 . C STaR3U4 

113. C NML . NUMBER OP Maim FEEDLlNE sizes to IE CONSIDERED (UP TO 12)STaR3U5 

116, ■ c n'El »• number cf engine feedline attache) to each main line (up staroiu 

117, C SrSNUM • if 1, PROGRAM COMPUTES FOR CX{0, F££0LJNES.ONlT, STaROUZ 

118, C • IF 2, PROGRAM COMPUTES FOR (UeL PEEDlINES only. STaROHB 

119, C • IF 3, PROGRAM Computes FOR boTH FEEDLtNES, STaROII? 

12C. C NSIZE , TOTAL NUMBER OF FEEOLlNES PER T 1N< « nEL 4 N«L STar3i20 

121, C STAR0121 

122, C NOP, . NJM9ER OF ENGINES FED BY A MAIN FEEULINF STARD122 

123, C ST AR3123 

124, C NCPl . NUMBER OF ENGINES ON VEHICLE STaRDI’4 

125, C STAR0125 

126, C NPTS - NUMBER OF TIME POINTS BEING CONSIDERED > N ANALVSlStUP TO STARD126 

127, C STAR0127 

128, C NCST « GROUND START FLAG (NgST»2 FCR GROUND STaRT) STaR31?8 

129, C TOTMLO - TOTAL LENGTH OF Ma [ \ OXYGEN FEEOLINE FT STAR3129 

130, C TOTMLH - TOTAL LENCTh Of MAIN HYDROGEN FEEOLINE FT STARDUO 

131, READ (5,3C!)NEL.NML.SvSNUM,N0P,N0Pi,NPTS,NGST ' STaRDUI 

132, 30 FORMAT! (1216)) STakDI 32 

133, READ (5, 103JT0TML0, TOTMLH STaR31.'3 

134, C «••••• ••••ST AROl 14 

135, NS1ZF*N£L*NML STaRDI 35 

136, NfcLP«NEL*l ST AR0136 

137, C ST AR31 37 

136, C •••••• 

139, ' 35 IF ( IP* 2 1 , LT, 1 >• GO TO 40 STAR3139 

14 0, C 

14J, C STAR314J 

142, C EULRl • LENGTHS AND RAO I I OF TANK StcTlUNS ( 9 VALUES) STAH3142 

143 , C STAR3143 

144, _ READ (5,103)EG.R1 STAR3144 

1«5, C •••••• •••••• 

146, 40 IF C |P< 3 1 »lT» 1 ) GO To 65 STAR3146 

1«7, C 

14b, C STARD148 

149, c MIOMlO - TOTAL number OF COMPONENTS IN MAIN OXYGEN FEEDLINE (UP T0STAR3149 

150, C MJOElO(NL)- Total NUM8FR OF COMPONENTS in ENGINE OXYGEN STAR3150 

151, C FEEDLINE NU*9eR Nl I UP TC lUO) SUR3151 

152, C IDMlo - COMPONENT TyPF FlaG FCR MaIN OXYGEN LINE STAR0152 

153, C IMMlo - COMPONENT MATERIAL Fl*G FOR MAIN OyGEn LINE STAR0153 

154, c iimlo • component insulation flag fcr main oxygen line staroisa 

155, C IMLO • SUBSCRIPT DENOTING COMPONENT POSITION IN MAIN STAR3155 

156, C OXYGEN EEEOUnE ( I Mlo • 1 A T TANK BOTTOM) STAR-3156 

157, C I ELO(NL) “SUBSCRIPT DENOTING COMPONENT POSITION IN ENGINE STAR3157 

158, C OXYGEN FEEOLINE (IElO«NL) • mIOElO(NL) AT INLET TO ENGJNESTAR3158 

159, C 5TAR0159 

160, C SPiMLO< I l#SP2M.0( I )»SP3ML0( I ) • COMPCstNT SPECIFICATIONS (SEE m*nu5TaR0150 

161, C STAR3141 

162, t 0P0IK)*K»1,NEL * 01*METERs OF CxYGEN ENGINE FEEDLINES (INCHES) STaR31»2 

163, C OP0(k)»K»NEL* 1.NSIZE • CANDlOATE DIAMETERS OF RAIN OXYGEN FEEDL jNEST AR3163 

164 , C STAR3164 

165, ~ READ l5 f 30)»l01LO,(Ml0Et0(NL>,NL»l»NfcL) STAR0165 
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166, 


00 50 1«1,M!DM_0 


STARD1A6 

167, 


HEAD (6,45)106.01 1 ), IMNL0( t ), 1 1HL0( I I.SPINLOI I >.SP2HL0( I ) . SP3ML0I JSTAR31A7 

168, 


D 


STAR3148 

169, 


IP ( !C' 1 L0( I ) ,12,25) GO TO 50 


STAR3149 

17P. 


1 TEMP* tQM|_o( J > / 1 0 


ST AROl 70 

171. . 


!C0( I )MOM.0( I )• I TEMP 


STAR3171 

172. 


IoML0< 1 >«ITEMP 


ST4R3172 

173, 


45 F0RMaT(3I6,3E12,8) 


STAR3173 

174. 


50 CONTINUE 


STAR3174 

175. 


DO 60 'L«i,NEL 


STARD175 

176, 


m 10*m J 3EL0< NL ) 


STAR3176 

177. 


DO 53 X * 1 , M 1 0 


ST AR31 7 7 

178, 


READ (5, 45) I3E_0(NL, l > . 1Mel 0( NL , 1) , 1 I ELQ( NL, l ) . SP1EL01 NL. I ) ,SP2EL0 STaR3i78 

179. 


KM., I ).SP3£U0(NL, I ) 


STAR3179 

1«0. 


IP (10tLO(NL,I),LE,25) GO TO 55 


STAR3190 

mi. 


ITEMP*I0EL0(NL. 11/10 


STAR3181 

162. 


lUOEINL, I ) * IDE. 0( ML, I )«1TemP 


ST AROl 32 

163. 


IOELO(*L*I )«IT£MP 


STAR3l«3 

164. 


55 CONTINUE 


STAR3134 

165 , 


60 CONTINUE 


STAR3185 

166, 


READ (5,100H0 : >O(K),K»l|NSlZE) 


STAR3136 

1»7. 

C 



STAR0197 

16 8, 

C 



• •ST AR0188 

169, 


65 IF (IP(4),i. T,l) CO TO «5 


STAR3189 

m, 

u 

C 

REPEAT EOS HYDROGEN PEF.O SYSTEM 


1 ftfx J], T u 
STARD191 

1V2. 

c 



STAR 3 192 

193, 

c 

RPO(k) - DIAMETER FOR THE KTh FUEL FEED LITE 

(INCHES) 

ST&R3193 

1»«, 


READ (3,30)MI0MLM.1MI0ELW<NL),NL«1,N4L> 


STAR3194 

195, 


DO 70 Iil.MIDM^M 


STAR3195 

196, 


READ (5, 45) IDM.H( 1 ) , I MMLH( I ), t IMLHI II.SPIMLHI I ) , SP2MLHC l >,SP3MLH( ISTAR3K6 

K7, 


1> 


STAR3197 

198, 


IP (ID V 'LR(I).LE,25) CO 70 70 


STAR3198 

199, 


1TEMP*IDMLT< 11/10 


STAR3199 

200, 


I0R( I )*IOM.H( I J’lTEMP 


STAR3230 

201. 


IO M Lw( I ) 1 1 TEMP 


STAR3201 

232. 


70 CONTINUE 


STAR3292 

203, 


DO 80 Nl«1,NEL 


STAR0203 

204, 


M|O«Mt0ELH<NL> 


STAR3204 

205, 


DO 79 I * 1 , M 1 0 


ST4H3205 

2C6 , 


READ (5,45) IDE.H(NL, I ) , MelH(NL, I ), HELHINL, I ) ,SP1ELR(NL, I ) , SP2ELHST AR0206 

2C7 , 


1 ( NL , I ),SP3ELH(NL, I ) 


STAR3207 

206 , . 


IP (U,ELH('JL,I),LE.25J GO TO 75 


STAR3238 

209, 


ITEMP*IDELT(NL, l ) 


STAR3239 

210. 


IDRE(NL, I)»IDE.H(NLiJ )-lT£MP 


STAR3210 

211. 


I0ELH(Tl, t >« IT = MP 


STAR32H 

212. 


75 CONTINUE 


STARD212 

213. 


80 CONTINUE 


STAR3213 

214. 


READ (5,103MHPD(K),K*1,NSIZE) 


STAR3214 

215, 

216, 


85 IP (IP(5),.T,1) CO TO 90 


STAR3216- 

217 , 
216, 

c 



STAR0218 

219 , 

c 

OXHTLN - FEEDLINE READ HEIGHT ABOVE ENGINE liJLET ,0X10, 

(FT) 

STAR3219 

220, . 

. c. 

HYRTLN * FEE0L1NE HEAD HEIGHT ABOVE ENGINE INLET, FUEL, 

(FT) 

STAR3220 

221, 

c 

POLO • OXYGEN FEEDLINE OESIcN PRESSURE (OPTIONAL) 

(PS1 > 

STAR0221 

222. 

c 

PDLH - HY0R03EN PEEOLlNE DESIGN PRESSURE (OPTIONAL) 

(PSI > 

STAR0222 

223, 

c 



STAR0223 
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224, C NOTEi * FACTOR of SAFETY of 2.5 JS APPLIED BY THE STAR0224 

225, C PROGRAM to the AROVf PRESSURES I N ThE COMPUTATION ST/IR3225 

226, C OF LINE HALL THICKNESSES. IF ( PDLO. PJLM) ,LE . 0, PROGRAM - STAR32-26 

227, C USES MAXIMUM Tank Bottom PRESSURE OR ENGINE INLET PRESSURE. ST AR0227 

228 , C STAR0228 

229, READ <»»t03)OXHTLN.HYHTLN,POLO.POLH STAR0229 

230, C . STAR02T0 

231, C ••••••*••••••• 31 

232, 90 IF ( !P< 6 J , lT , 1 ) GO TO 95 STAR3232 

233, C ••••••••••••««***STaH3233 

234, C STAK3234 

235, C LOAOOl • LOAOEO HEIGHT OF OXtoJZEH LBS STAR3235 

236, C L0ADH1 f LOAOEO HEIGHT OF FUEL LBS STaR3236 

237, C ST AR3237 

238, C VhGTn - Total VEHICLE WEIGHT *T IGNITION lbs STaR3238 

239, READ (»,100>LOaD01.LOAOH1.VWGTN , STaR3239 

240, c STAR3240 

2«1. C .............. »••«*•. 

242, 95 IF t IPl 7 ) ,lT« 1 } CO TO i05 STaR3242 

243, C ••••••STaH324j 

244, C STAR3244 

245 , C WOOTNO * OXIDIZER NOMINAL FLOW RATE FQH SINGLE ENGINE (L9S/SECI STAR3245 

246, c WDOTnh « FUEL NOMINAL FLOW RATE FOR SINGLE ENGINE (LBS/SEC) STAR0246 

247, C FNOM • NOMINAL ThRuST FoR SINGLE E K GlNk ILBS) STAR3247 

248,. C STAR02A8 

249, HEAD IS.IOOIWDOTNO.WPOTNH, FNOM STAR3249 

250, 100 F0RMAT<(6Ei2,8I) STAR3250 

281, C ST4R3251 

252. C it 

253. 105 IF ( t Pi 6 1 ,lT 1 1 1 GO To 110 STaR3233 

25A, C »••••••*••••«•»•«•••» 

255, C STAR0255 

256, C TENJnO • TEMP, OF OXIO, F U UI0 AT ENGINE INLET (DEG.R) STaR3256 

257, C TENJNH * T=MP, OF FUEL F u ul0 AT ENGINE INLET (DEG.R) STAR3257 

258, C TLIQSO » TEMP, OF OXIQ. FLUID SURFACE JN TANK DEG. R STAR0258 

259, C TLIUSH • TEMP, OF FUEL FLUIO SURFACE IN TANK DEG.R STAR0259 

260, C PENTOU • ENCINE INLET FLU|0 PRESSURE TOLERANCE (PSI) STaR32S0 

261, C SUR3241 

262, REAO (5,103JTENINO.TENlNH,TLlQS0rTLIGSH,MENTUL STaR3262 

263, C STAR3283 

264, C «... 

265, 110 IF ( IP* 9 1 ,lT. 1 1 GO TO 115 STaR3265 

266 , C 

267 , C ST 633267 

268, C T I M£a . TIME VALUES OF EVENTS IN TRANSIENT STAR0268 

269, C STAR3249 

270, READ (5,103HTIMEA(I),I»1,,NPTS> STaR3270 

271, C 

272, US IF ( JPl lOI ,LT« 1) GO TO 1?5 STaR3272 

27J, C •••••• ST AR32 73 

274, C STAR3274 

275, C WOTFRO * FRACTION OF OXlOjZER Fi,OW RATE AT TJMFA(I) STAR0275 

276, C WDTFRH » FRACTION OF FUEL FLOW RATE *T T I MEA ( I ) STAR3276 

277, C STAP3277 

278, READ ( 5 , 100K WJTFROt I ) , l»l,NPTS> _ STAR3278 

279, IF (SYSNUM.eo.l) GO TO 120 STaR0279 

280, READ ( 5. 103H W3TFRHI I ) , l»i .NPTSI STAR3280 

241, 120 CONTINUE - - - - -------- STAR0281 
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*02, C STAR0232 

28J, 123 IF IIP(ll).LT.l) CO TO 13c STaR32*3 

284, C 

285, C ST4R3235 

286, C F IFRaC • FRACTION OF NOMINAL THRUST AT TjMeA ST AR32B6 

*«7, C SUR32S7 

288, HEAD |3,100)(F1FRaC(I).1*1#NPTS) STAR02T8 

28V. C ST 4R3239 

290, - 130 IF ( IP«12).LT,1» CO TO 14q STaR3290 

291 , C ••••.I*. .............ST4R3291 

292. C 5T4R3292 

293. C NPSPO • NET POSITIVE SUCTION PRESSURE FOR OXIDIZER PSI ST4R3273 

294,.. C NPSPu • NET POSITIVS SUCTION PRESSURE FOR FUEL - PSI STAR3294 

295. C ST4R3295 

*96, READ <5,103)(NOSP0lN),N«i,N'PTS» ST4R3296 

297, JF <SYSNUM.E3.il CO TO 135 STaR32«7 

298, READ (S,103)(NP5PH<NI,N«1,NPTS> STAR0298- 

299 , 133 CONTINUE STARD299 

300, C ...ST4R3330 

301, 140 JF ( IP< 13 ) , LT, 1 ) C3 TO 15o ST4R0301 

302, C ••••• ..............to....*....... ST 4R3302 

303, C ST AR0333 

304, C PENMNO . MINIMUM ENCJNE INLET CX I D , PRESSURE VALUE AT T!*EA STaR0334 

305, C PENMNH . MINIM JM ENGINE INLET FUEL RtSSUHE VALUE AT TIMEa STAR3305 

306, C ST4R3336 

307, RE40 (3,tOO)(PENMNO<M,N*i,NPTS) ST4R3307 

308, IF (SYSnUM.EO.D GO TO 1«5 ST4R333B 

309, RE40 t P| 103 ) (PENMNMI N) ,N»1«NPTS > STAR3309 

310, 145 CONTINUE ST AR3310 

311, C .....ST4R03U 

312, _ 150 IF ( IP< 14 > ,LT. 1 J CO TO 16o ST4R0312 

313, C 

314, C STAR0314 

315, C PPDGOT . PART. PRESS, OF PRESSURANT C*S IN OXID, TANK PSI STAH3315 

316, C PPDOhT . PART, PRESS, OF PRESSURANT C*S JN FUEL TANK PSI STAR3316 

317, C STAR0317 

318, READ (S,103MP.p0G0T(n).N«i,NPTS) STaR3318 

319, IF (SYSn'JM.EO.1) GO TO 155 STAR0319 

320, READ ( 5 j 100 ) (PpDGHT t N) «N*i , NPTS) STAR0320 

321, 155 CONTINUE STAR0321 

323| 160 JF UP<l5),LT,l> GO TO 17 q STAR0323 

324, C 

325, C ST AR0325 

326, C TOCOT - TEMP, OF PRfSSURanT gASi JF NONE. SET E3UAL TO TLIOSO ♦ 5,STaR0326 

327, C TDCHT * TEMP, OF PRESSURANT g 4 Si IF NONE-SET E3UAL TO TLIQSW ♦ 5,STaR3.527 

328, C ST 4R3328 

329, READ ( 5, 103 )<T3G0T(N> , N°i , nPTS> STAR3329 

33Q , IF ISYSNUM.E3.il CO TO 1*5 STAR3330 

331, HEAD 1 5, 103 J ( TDCHT(N) ,N*1,NPTS> STaP3331 . 

332, 165 CONTINUE STaR3332 

333, C «... STAR 33 33 

334, 170 IF ( IP* 16 ) ,LT, 1 ) CO TO 175 STARD334 

335, C 

336, C STAR0336 

337, C I COON » INDEX FOR ADOI'UoML CaSES< IP ICOON • l THERE ARE MORE, STaR0337 

338, C I" 1CU0N « Oi NO MORE, STARC338 

339, C STAR0339 


) 
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340, 



XfcAD (3,30) I503N 


STAR0340 

341, 


175 

CUNT 1\J£ 


STAR0341 

3«2, 

C 




•ST4R0342 

3*3. 

C 




ST AR0343 

344, 



U0AD02 » LOADOi/RhOOx 


STAR0344 

345. 



UO»OM2 « LOAOhi/RhOhy 


ST iP.0345 

3*6. 

C 




STJR0346 

347, 

c 


calcul*te slope of flow bate clrve 

INCREMENTS 

STAH0347 

348, 

c 




STAR0348 

34 », 



MPTs « N'PTS " 1 


STAH0349 

3b 0, 



DO 180 J«1,MPT3 


ST4H3350 

351. 



W0D0T0I J>»(W0TrR0( J41>-W0TFR0{J))» 

WDCTN0/(T1MEa( j*l > -T I MEA t J>> 

STaROJNi 

352. 



W000TM< J?»<W0TFRHW*1)-W0TFRH(J)>» 

HOCTNH/<TINEa<J*1)-TIMEa(J)J 

STAR3352 

353. 


180 

CONTINUE 


STAR0353 

354, 

c 




ST4R0354 

355. 

c 


COMPUTE TOTAL LENGTHS OF FEEDLlNES 

(ASSUME COMPONENT L/D » 1,0> 

STAR0355 

356, 

c 




STAR3356 

357, 



IF (SVSnUM,E3,2J CO TO 210 


STAR0357 

358. 

c 




ST 4R3358 

3b® , 

c 


OXYGEN FEE3L1NE LENGTHS 


ST VR3359 

360, 

c 




5T4R3360 

361, 



00 200 NL*l.NSlZE 


STAR3341 

362, 



suM«n, 


ST4H3362 

36 3, 



|F(NL.LE,NELJ Ml0»'1IriEL0(N-Ll 


ST AR3363 

364, 



IF<NL.CT,NEL1 Mill* 'lOMLO . . 


ST4R3364 

J69, 



DO 195 1 * l , M 1 0 


ST4H33S5 

366 , 



1FINL.LE.NEL) 1D*10El0«NL.1) 


ST AR3346 

367. 



IF(Nl.CT.NEL) ID* IUMlOI 1 ) 


STAR3367 

368, 



IF ( I0-GT,1> go to 185 


STAR 9 348 

309, 



Sum«su'UO, 7834»OPO(NL) *0,083333 


SUR3349 

37?. 



GO TO 195 


ST4R3370 

371. 


165 

IF (ID.EO.9J CO TO 195 


STAH337J 

372. 



IF (IO.GT.10I GO TO 190 


STAR3372 

373, 



IF(NL.LE.NEL) SPEC*SP1FL0(NL,I> 


STAR3373 

374. 



|F(NL,CT,NELJ SPEC*SpimLO( 1 ) 


STAR3374 

375. 



sum.sum+spec 


ST AR3375 

376, 



GO TO 195 


STAR3376 

377, 


190 

Sum*SUM*0P3(Nl 1*0, 083333 


ST4R3377 

378, 


195 

CONTINUE 


STAR3378 

379, 



0P1PEL<ND*SUM 


ST 4R3379 

3-10, 


200 

continue 


5TAR3390 

3H. 

c 


COMPUTE LENGTH RATIOS FOR STRAIGHT 

sections 

STAH3381 

3K2,. 



00 203 NL'NELP.NSIZE 


ST4R3332 

363, 



AO0(nl)*OPIPEl(NLJ/ToTML0 


ST4R3383 

3«4, 


205 

CONTINUE 


ST4R3394 

365 , 



IF (SYSNUM.EQ.lJ GO TO 240 


STAR3385 

366, 

c 



, 

ST4R3386 

367, 

c 


HYDROGEN feeoljne lengths 


STAR3397 

368, 

c 

- 


1 

ST AH3380 

369, 


210 

do 230 NL«1,NS(ZE 


ST AR3399 

3V0, 



SUM«0, 


STAR3390 

391, 



SF(NL,LE,NEL> m1()«mioelhinli 


STAH3391 

392, 



IF(NL.CT.NEL) MjC*M10MLH 

i 

STAR3392 

393. 



DO 225 I»1,M10 


ST4R3393 

3®4. 



1F(NL,LE,NEL> ID*|0Elh(Nl,1 j . 


STAR3394 

393. 



lFtNL.CT.NEL) I0*IDMIH(1> 

' 

SUR3395 

396, 



IF (IOiGT.1) CO TO 215 


STAR3396 

3V7, 



SUM*SL/M*0, 7854. HP0(Nl)*0, 08 3333 


STAR3397 



__ 

- - - - - - 

- . - - . 
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398, 



GO TO 225 . . 


399, 


215 

IF ( !C<E3i9) GO TO 223 


<00, 



IF UD.GT.10) GO TO 220 


401, 



IF ( NL , LE . M£L ) SPEC»SP1ELH< NL, | ) 

__ 

402, 



IF(NL, c T.NEL) SPEC«SP1MLH( I > 


403, 



SUM«SU"I*SPEC 


404, 

_ 


GO TO 225 


403, 


220 

Su*«su»*HP0('n.>4O l 083333 


406, 


225 

CONTINUE 


4C7, 



HPIPEL(Nl)»S'JM 


4C8, 


230 

CONTINUE 


409, 

C 


COMPUTE LENGTH RATIOS FOR STRAIGHT SECTIONS 


410. - 

. 



DO 235 NL«NELP.NSl2c - 


411, 



A0HInl)*HPIPEu<NL)/T0TMUH 


412, 


235 

CONTINUE 


413, 

C 




414. 

c 


CALCULATE PRESSURE DIFFERENCE TO SUPPlT ACCELERATION 

heads 

415. 

c 




416, 


240 

DO 295 I«1,NSJ2E 


417, 



GO TO (245.270,245) iSYSNUM 


418, 


245 

OPOUM * 0PJPEL( I ) 


419, 



OUDUM * 0P0IJ)»»2 


420, 



IF ( I ,Gt,NEL) SO TO 255 


421. 

c 




422. 

c 


COMPUTE ACCELERATION HEAD JN SINGLE ENGINE OX FEED SECTION 

423, 

c 




424, 



00 250 J=1,MPT5 


425. 



OLPACOt I . J ) »( 4 , 0»W300TO< J)»OPoLM»l , 0 1/ 1 GC»PJ »QDDUM > 


426, 


250 

continue 


427. 



GO TO 265 


428, . 

c 




429, 

c 


COMPUTE ACCELERATION HEAD IN MAIN OX FEED SECTION 


430, 

c 




431. 


255 

OPDUM» T OTM^O 


432. 



DO 260 JU.MPT3 


433. 



DLPACO< I. J)»( 4,0»WJDOTO( J)»0PdLM»N0P)/(6C»PI»0DDUM) 


434, 


260 

continue 


*35, 


265 

CONTINUE 


436, 



IF (SYSnJM.EO.i) go TO 295 


437, 


270 

HPQUM * HPIPELU) 


438, 



HOOUM ■ HPO ( I ) «»2 


439, 



IF ( I ,GT,NEL) GO TO 280 


440. 

c 




441. 

c 


COMPUTE ACCELERATION HEAD IN SINGLE ENGINE FUEL FEED 

SECT 1 i 

442, 

c 




443, 



DO 275 J«1.MPTS 


444 . 



OLPACH< 1 1 J)«U,0"W00OTH(J)«HPDLM # l.Q>/(GC»P!»HODUM) 


445, 


275 

CONTINUE 


446, 



GO TO 290 


447, 

c 




448, 

c 


COMPUTE ACCELERATION HEAD IN m*IN FUEL FEED SECTION 


449, 

c 




450, 


280 

HPDUM«ToTM_H 


451, 



DO 2R5 J»1,MPTS 


4S2, 



DLPACH(I,J)»I4,0«WOOOTH<J).HP D L'M»NOP>/(GC#PI.HDDUM> 


453, 


265 

CONTINUE 


454, 


290 

continue 


4S3. 


295 

CONTINUE 



STAR3398 
STAR3399 
STAR0400 
STAR0401 
STAR3402 
ST AR0433 
STAR0404 
ST AR0403 
STAR3406 
STAR3437 
STAR04Q8 
STAR0409 
STAR3410 
STAR04U 
STAR3412 
STAR3413 
STAR3414 
STAR3415 
STAR3416 
STAR 3 417 
ST 4R3418 
ST AR0419 
STAR3420 
STAR3421 
ST4R3422 
ST 4R3423 
ST AROC24 
ST AR3425 
STAR3426 
STAR3427 
STAR3428 
STAR3429 
STAR3430 
STAR3431 
ST4R34J2 
ST4RD413 
ST 4R34 34 
ST4R3435 
ST4R3436 
ST 4R3437 
STAR3438 
ST4R3439 
5T 4R344Q 
ST4R3441 
ST4R3442 
ST 4R3443 
STAR3444 
ST4R3445 
ST AR3446 
STAR3447 
ST 4R3448 
ST4R3449 
ST4RD450 
STAR34S1 

ST4R3452 
ST 4R3453 
STAR3454 
STAR3455 
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4S>6, 

C 




837. 

C 


Compute the initial ullage vollmes ano head heights for 

Tanks 

838, 

C 




4*9. 



DO 300 1*1,9 


460, 


300 

EOLRI 1 >*F.0.Ri< 1 J /FEET 


<61. 



CALL 1 Nj VOl 


462. 

C 







CALL ULLHE3ILOAD02,LOAOH2) 


864, 



ULVL10 • UVL02 


465. 



ULVLIH « UVLH2 


466, 



HEADIO « H302 


467. 

468, 

c 


HE AO I H • H3H2 


469, 

c 


COMPUTE VEHICLE WEIGHT CHANGE FOR NOPl ENGINE OPERATION 


470. 

c 



<u. 



VWGTCH p vwgtn 


872. 



PNCWCT p 0.0 


473. 



VL02 p 0,0 


874. 



VL«2 • 0,0 


475. 



DO 310 J»1,MPTS 


476, 



OFWGTOI J)»( IWOTFROI J*D* WDTFrCIJ M/2,0 JPWJOTNO 


877. 



DFWGTHC JI«I{W0TFRHIJ*1>* W?TfrH( J)>/2, 0 >«WJ0TNM 


478, 



DIFwcTI JJOFVGTOI JMCFwGThI J) 


879. 



OELTIM « <TPEA(J*1)-TIMEa( J)) 


880. 



VwGTCH • VWGTCH w (OlFwGT< J)«- hCP1«OELTIMI 


861. 



VwGTNU* J) wVWGTCH 


862. 



PCWGTO<J> p OFwGTO(J)*nOPipDElT1M 


863. 



PCWGTH(j) p OFWCTHI J)«nOPi«OElTIM 


48 4, 



PNCWCT * PNCWGT * (OlFwGT(j)PNCPlPDELTin> 


485. 



PROWCTlj) p PNCWGT 


486, 

c 




887, 

c 


CALCULATE THRUST TO WGT RaTIO AS FIT! 


4b8, 

869, 

c 


FTOW(J) • (FIFRAC<J)»FnOh.NOPi>/VWGTNU«JI 


490, 



IF (FTOwt JI.GT.l, ) GO TO 303 


891, 



I F ( NGST , GT , 1 J FTOWI J)»l, 


492, 

c 



893. 

c 


calculate head height in propellant tanks for oxid, and 

FUEL 

494. 

c 


895, 


303 

VL02 p VL02*< OFWGTOI J)*NoP1p(T JMEa(W*W«TIMEA< J) > )/RNOOX) 

496, 



VL002I J)“V.02 


897, 



VRMQ2 ■ L04002 • VL02 


498, 



VL«2 « VLH2*(OFWGTH(J)PNOPl*(TjMEA(J*i>«TIHEA(JIM^RHOHV) 

499, 



VLGH2I J)*V.H2 


300. 



VRMH2 ■ L0A0H2 • VLH2 


301, 



CALL ULl h E3I VRM02, VRHH2 I 


302, 



ULVL02<J>« UVL02 


303 . 



ULVLH2<J)» UVLH2 


304, 



HE A002* J > * H002 


305, 



HEA0W2<J)» H0H2 


306, 

c 




507, 

c 


CALCULATE PRESSURE DIFFERENCE DUE TO TOTAL HEAD AS FIT) 


308, 

c 


, 


309, 



OLPHOOl J)»IFT0W« J) • RH00X • (H002*0 XhTLN> )/144,0 


510, 



OLPHOHl J>«IFTOW«d> • RNOWy • <H0H2*HTHTLN> )/144,0 


311, 


310 

CONTINUE 


312, 

c 




313, 

c 


calculate line pressure orop 



ST1R306 
STAR0457 
STAR3858 
STAR08S9 
STAROA60 
ST*R344i 
ST4K3462 
ST AR3463 
ST 4R0464 
STAR0465 
STAR0466 
ST4R34S7 
ST4R34S8 
ST4R3469 
ST4R0470 
ST4R3471 
ST4R3472 
ST4R3473 
ST4R3474 
ST4R347S 
ST AR34 76 
ST4R3477 
ST4R3478 
ST4R3479 
ST4R3480 
ST 4H3481 
ST 4R3482 
ST4R3483 
STARD484 
ST4R3445 
ST4R34S6 
ST4R3497 
STAR3488 
STAK0489 
ST4R04'>0 

ST4R3491 

ST4R3492 

ST4RD493 
ST4R3494 
ST4R3495 
ST4R3496 
ST4R3497 
ST4R3478 
ST4R3499 
STAR0500 
ST4R3531 
ST4R0532 
ST4R3503 
ST 4R3534 
ST 4R3505 
STAR0506 
ST4H3537 
ST4R0338 
STAR0509 
ST4R3510 
STAR3511 
ST4R3512 
ST4S3513 
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514. 

C 



5TAP3514 

515, 



00 385 ! * 1 « NS I Z E 

• STAR3S15 

516. 



GO TO 1315, 350. 315)iSYSNUh 

STAH3516 

su, 


315 

ODLOUi'1 « 0?0I 1)4*4 

ST 4RD517 

513, 



PC4YP*0, 

STAR051B 

519, 



o*opn< I ) 

STAR0519 

520. 



C0NGP * 3,62806 

STAR3520 

521, 



IF II.GT.NSU 00 TO 330 

ST AR0521 

522, 

c 



STAR0522 

523, 

c 


compute line pressure drop in single engine ox feed section 

STAR3523 

524, 

c 



ST AR3524 

52b , 



MIO«MIOELO(I) 

STAR0525 

b26 , 



00 320 N 1 0*1 . M 1 0 

ST AR0526 

527, 



10* I0£L0( I.NIO) 

STAR3527 

528, 



SP1*SP1EL0< I.NIO) 

STAR052B 

529, 



SP2*SP2ELO( I.NIO) 

STAR0529 

530, 



CALL FLORES! 1D.0iSP1.SP2.RES) 

STAR0530 

531. 



OCAYP*l>CAYP*f»£S 

STAR0531 

532. 


320 

CONTINUE 

STAR3532 

533 , 



OC4 v P*0,144*OPlPEL< 1 )/0*0CAYP 

ST AR3513 

534, 



OKPOI I )«0CAYP 

STAR3534 

535. 



00 325 J*1,MPTS 

STAR3535 

536, 



OLPLNO< I . J)*(CONGP*OCAYP*(OFWcTO( J)*42)*1.0)/IRHOOX*ODLOUM) 

STaR3536 

537, 


325 

CONTINUE 

STAR0537 

538, 



GO TO 345 

STAR0538 

539, 

c 



STAR9539 

540, 

c 


COMPUTE LINE PRESSURE OROP IN fAlN OX FEED LINE SECTION 

STAR0540 

5U, 

c 



STAR0541 

542. 


330 

00 335 NIO»1iMIOMl0 

STAR3542 

543, 



IO»IOMLO(NIO) 

STAR3543 

544. 



SP1»SP1ML0(NI0) 

STAR3544 

545. 



SP2*SP2MLO(NIO) 

STAR3545 

546, 



CALL FL0RESCI0.0.SF1.SP2.RES) 

STAR0546 

547. 



OCAYP=OCAY3*RES 

STAR0547 

548, 


335 

CONTINUE 

STAR0548 

549, 



OCAYP*0,144*TOTML070*OCAYP 

STAR3549 

550. 



OKPOI I ) *0CAYP 

STAR35S0 

551, 



00 340 J* 1 . MPT5 

STAK3551 

552, 



OLPLNOt 1 . J)*<C0NGP*0CAYP*< <NOP*OFWGTOU) )*«2> )/(RH00X*ODLDUM> 

5TAR0552 

553, 


340 

CONTINUE 

STAR3553 

554, 


345 

CONTINUE 

ST AR 3554 

555, 



IF (SYSnUM.EO.I) CO TO 385 

ST AR0555 

556, 


350 

HDLCUM * H?0( l )*«4 

STAR0556 

557, 



HCAYP*0, 

ST AR3557 

558, 



0*HPO( I ) 

STAR3538 

559, 



CONGP " 3,62806 

ST AR3559 

560, 



IF (I.CT.NELI GO TO 365 

ST4R3560 

561. 

c 



ST4R3561 

562, 

c 


COMPUTE LJNE PRESSURE DROP IN SINGLE ENGINE FUEL FEED SECTION 

ST 4R3562 

563, 

c 



ST4R3563 

564, 



MJ D*M I OELH ( l ) 

ST4R0564 

565. 



00 355 NlD*liMIO 

ST 4R3565 

566, 



10*1 DELH ( l.NIO) 

ST4R3566 

567, 



SP1«SP1ELH< I.NlO) 

ST4R0567 

569. 



SP2 = SP2ELH{ I.nID) 

ST4R3568 

569, 



CALL FLORES! JD,D,SP1,S?2.RES> 

ST4R3569 

570, 



HCAYP=RCAY=4RES 

S r AR3570 

571, 


355 

CUNT I NUe 

STAR3671 
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572. 



HC4YPb0,14 4»«IP1P£L( H/34HCAYP 


STAR0572 

> 73, 



hkpdi : itHcivp 


STAR0573 

>74, 



00 360 J* 1 , MPTS 


STAR 0574 

>75, 



DLPLNh< 1 iJ)b<C0NGP»HCAYP»<CFwgTH<U)»« 2I»1, J)/tRH0HY«HDL0UM> 

ST AR0575 

>75. 


360 

continue 


STAR0576 

>77, 



CO TO 380 


ST AR0577 

>70, 

. C 




STAR 0570 

>79, 

c 


COMPUTE LINE PRESSURE DROP IN MAIN FUEL FEED CINE 

SECTION 

STAR0579 

>H0. 

c 




STAR35S0 

>»i. 


365 

DO 370 Nl D * 1 , MIOMLM 


STAR0501 

502. 



IOMOMtHtNIO) 


STAR0502 

>03. 



SP1«SP1MUH(NI0) 


. ST AR0533 

>K4. 



SP2«SPZMLH(NI0) 


ST ARO504 

>05, 



CAUL FUORESt ID.D,SP1 .Sp2,RES) 


STAR0595 

>05, 



HC4YP»MC4Y»*RES 


STAR0536 

507, 


370 

CONTINUE 


STAR0597 

>00 , 



HC4YP«0,l44«T0TMLH/D*HCAYP 


ST4R0518 

509, 



HKPOI I UHCAYP 


ST4R0509 

>9C. 



00 375 J*l,MPT5 


STAR0590 

591, 



OLPUNMt I, J)«(CONGP»MCAYP«{(N0 P»DPvCTH( J)>»42)>/(RH0HV»NDLDUM) 

STAR3591 

592. 


375 

CONTINUE 


STAR3592 

>93, 


300 

CONTINUE 


STAR359J 

594, 


385 

CONTINUE 


STAR3594 

595, 

c 




STAR3595 

>95. .. 

c 


calculate ullage pressure retired 


STAR3576 

597. 

c 




STAR3597 

590, 



TVAPO * tenino 


STAH3598 

599, 



Call PVaPORITVAPOUiPVaPOJ 


STAR3599 

600. 



PVPENO « PVAPO 


STAR0600 

601. 



TVAPm ■ TENINM 


ST AR0601 

602, 



CALL PVaP0R(TvaPHi2<PVAPMJ 


STAR3612 

603, 



PVPtNH « PVAPH 


STAR3633 

604 , 



00 400 J* 1 , MPTS 


STAR3634 

605, 



GO TO <390.395,39Q>iSYSNUm 


STAR3605 

606, 


390 

PENGO< J)*PVPEN0 * NPSPOU) 


ST AR3606 

607, 



IF(PFNGOIJ>,LT,PEN'NO(J>> PENgCIJ)* PENMNOIJ) 


ST AR3607 

600, 



IP I SYSNUM , E 3 , 1 ) GO TO 400 


STAR3638 

609, 


395 

PtNGMl J)«PVPEN4 * NPSPH(J) 


ST AR3609 

61U, 



I F t PE nGh ( J > , LT . PEN 4NM J ) > PENgM(J)» PENMNHtJ) 


5TAR3610 

611, 


400 

CONTINUE 


STAR0611 

612. 



00 425 I«NELP,NSI2E 


ST AR0612 

613, 



DO 420 jn.MPTS 


ST AR3613 

614, 



SUNQ»0 • .. 


STAR3614 

615. 



Sumh«0 • 


ST AR3615 

616, 



summo( J>* o. 


ST AR3616 

617. 



SUMMw( j)«0, 


ST AR0617 

610, 



DO 405 N*1 , NEL 


ST AR3618 

619, 



SUMObCLPLNOIN, j)*DLPACn(N, J) 


ST4R0619 

6 20, . 



SUMmbOlPLNH(N, J)*0LPACH(N' f J) 


ST4R3620 

621. 



IFISUMO.GT.SUMIOCUI) SUMMOI JIiSuMO 


STAS0621 

622, 



1 F ( SlJMH , CT , S'JMMH ( J ) > SuMMm J ) iSuMH 


ST AR0622 

623. 


405 

CONTINUE 


ST AR3623 

624 , 



GO TO UiO. 415, 4101, SYSHUI-. 


ST AR3624 

625. 


410 

PULLOt 1 , J)»PEN50( J)*CLPUN0( I ,j)+0LPACOl 1 i J) 

1 

STAR0625 

626 , 



1 -OL’HpOl J)*SUMf,o( J)*PENTOL 


ST AR0626 

627, 



IF ISYSnUH.EQ.D GO TO «20 


ST AR3627 

620. 


415 

PULLHI I , JIbPENGHI J)4DLPUNh( 1 ,J)*DLPACH( I, j> 


ST AR3628 

62V, 



1 0OLPHCHI J)*SUMMH< J)*PENT0L 


STAR0629 
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630. 


420 

CONTINUE 

STAR361Q 

631. 


425 

continue 

STAR3631 

632. 

C 



ST AR3632 

633, 

c 


CALCULATE v, I Nil v)UM ULLAGE PRESSURE REQUIRED 

ST 4R3633 

634, 

c 



ST 4R0634 

635, 



TS9AP0 » TlIOSO 

STAR3635 

636, 



Call PVaP07( TS9AP0»1,PSVAP0) 

ST 4R3636 

637, 



PuVAPG « PSVAPO 

STAR 0637 

638, 



TSVAPH « Tl I 0S-4 

ST AR3638 

639, 



CALL P9aP09(TS9APHi2«PSVAPhJ 

ST 4 RO 6 39 

640,. 



PUVAPH » PSVAP-I 

ST/R0640 

641. 

c 



STAR0641 

642. 



00 445 I«NELP.NSIZE 

STAR0642 

643. 



DO 440 J*1 1 MO T3 

STAR3643 

644, 



CO TO < 430, 435, 430 )iSY$NUp 

STAR3644 

645. 


430 

PULMNOlj) » PU9AF0 ♦ PPOGCT ( J ) 

ST4R0645 

646, 



IF<PULL0(I.J),CT,PJLMN0(J)) PuLLROIJiJ) ■ PULLOl I • J ) 

ST4R0646 

647 , 



IF1PUU-01 1 , J ) ,_E , P'JLPNOt J) ) PuLLROt I , jUPULMMOt J) 

ST4R0647 

648, 



IF (SySMUM.EO.i ) 03 TO 44o 

ST 4R364e 

649, 


435 

PULMNblJJ > PUVAPH ♦ PPDCwT(J) 

ST4R0649 

650. 



IF<PuLLH(I,J), 3 T.PULMNN(J>) PuLLRH(I»JI ■ PULLWtI.Jt 

ST AR3650 

651, 



IF(PuuLw( I, J),uE.PULPNw< J)> PuLLRHt 1 1 J 1 •PULMNHt J ) 

ST4R0651 

652. 


440 

CONTINUE 

ST 4R0652 

653. 


445 

CONTINUE 

ST4R0653 

654 , 

c 



ST4R1654 

635. 

c 


calculate pressure at Tank bottom (Cxid, ano fuel) 

ST4R3655 

636 , 

c 



ST4R3656 

637. 



DC 465 1«N2LP,NSIZE 

ST 4R0657 

65d. 



PTdTMOt I )«3, 

ST4R0658 

639, 



PTBTNhI J )« 0 , 

ST4R06S9 

660. 



CO 46L J*1,MPTS 

ST AR0640 

661, 



CO TO l450,455.450)i SYSNUK 

3T4R0641 

662, 


450 

PTKaTOtliJ) « ^ULLROd.J) ♦ {(RhOOX • F TOW 1 J ) • HEA 002 I J) 1/144.0) 

STAR1642 

663, 



IF ISYSnUM.EO.I) CO TO 460 

ST AR3663 

664 , 


455 

PTKbTMl I, J) ■ PULLRH(l.J) ♦ ( (RwOHY • FTOW(J) > UEADW21 J >3/144,0) 

ST4R7644 

665, 



IF(PTN5T0( 1 , J).GT,PTRTM0< j ) ) pTBTMOI I >»PU)TO< I, j) 

STAR1645 

666 , 



IF(PTk3tH( IiJI.CT.PTbTMHI I ) J PTBTMHI | )»PtKJTH( I.J> 

ST 4R0646 

667, 


460 

CONTINUE 

ST4H3667 

666 , 


465 

continue 

STAH0648 

669, 

c 



STAR 0649 

6 / 0 , 

c 


CALCULATE WEIG-iT of ULLAGE cas 

STAR0670 

671, 

c 



STAR0671 

672. 



DO 4B5 J* 1 1 MPT5 

ST AR06 72 

673, 



CO TO 1470, 475. 470>iSY3NUM 

ST4R36 73 

674, 


470 

TmPULOM ITlIOSO ♦ T0GOT«J))/2,0> 

ST AR0674 

675. 



I«NELP 

ST4R0675 

676, 



call zpinditnpjlo.pullroi i,u>,i,z) 

STAR36 76 

677, 



HOX t P I NOR ( 1 ) 

ST 4 RO 6 7 7 

678. 



RHOLOC'144.0*PJLLR , JII,J)/«Z»RoX»"MPUU0I . _ .... 

ST4R0678 

6 79 , 



KTULGOl J)*R h3L0G»ULVlO2( J> 

STAR3679 

680, 



IF (SySnUM.E-3.1 ) CO TO <80 

ST4RD630 

601 , 


475 

TNPULF. 5 ! 1 TlIOSH ♦ TDCHT«J))/2,0> 

STARO 681 

682, 



RmOLPG • PTDENSIPULLRHI li J> * T mPULH ) 

5T4R3682 

683, 



WTUlGhI JJ»RH0LRG"ULVLH2( j> 

ST4R3683 

684 , 


480 

CONTINUE 

STAH96S4 

685, 


485 

CONTINUE 

ST4R0685 

686 , 

c 



STAR0646 

687, 

c 


CALCULATE line HEAD PRESSURE 

STAR0637 
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61*8 . 
669, 

6 9C. 
6 * 1 . 
692. 

6*3. 
6 «<. ... 

695, 

696, 

697, 
696, 
699, 

700.. 

701 , 

702, 

703, 

704 , 

705, 

706, 

707, 
706, 

709, 

710, 

711, 

712, 

713, 

714, 

715, 

716, 

717, 
716, ... 

719. 

720. 

721. 

722. 

723. 
72*. _ 

725, 

726, 
727 , 
726, 
729, 

730.. .. 

731, 

732, 

733, 

734, 

735, 

736, 

737, 
73b , 

739. 

740. 

741. 
7*2. _ 

743, 

744, 

745, 


00 50C J»1,MPTS 
CO TO (490,495,490)|SYSNUM 
490 PMDLNO(J)«<(RH30X»FToW(J>»OXHTLN)/14«,B> . . 

IF ISYSnUM.EO.I) CO TO 500 
495 PHDLNhI J ) 4 < ( RHOHYoFTOW ( J I «HYHTLN >7144,01 
.. 300 CONTINUE 

c 

C RECOMPUTE PRESSURE AT THE ENGINE 
C 

00 52C I*N2CP,\S1ZE 
00 513 J*1,MPTS 
CO TO (505,910,505)i SYSNU m 
505 P£NNU0( !»J)4PT<BTOll ,J)4 PhOENO<J)*OEP*COU*'j) 

1 *0-PUN0< 1,J)-SUMM0(J> 

IF (SYSNUM, E3.1) CO TO 515 
510 PENnuhI I, J)»PT<BTH<| ,J)*PhDLNh<J)'DLPaCH» I » J) 

1 *DlPUNH< I.J).SUHMH(J) 

515 CONTINUE ... ' 

520 CONTINUE 
C 

C COMPUTE MAXIMUM VALUE OF ENGINE INLET PRESSURE AS A FUNCTION OF 
C 

DO 570 I'NELP.NSIZE 

PMAXOUl'O. ; _ 

pmaxhi i )*o, 

DO 530 J* 1 , MPTS 
C 

C COMPUTE MINIMUM ENGINE LINE PRESSURE DROP AT THIS TIME 
C 

SUMNOI J>«1,E*10 

Sum,nh< J)»1,E*10 
00 375 N”1,NEL 
SUM0»0LPLN0(N, J)*0LPaC0(N,J> 

SuMh.UUPLN-MN, J)*DLP*CW<N, J) 

IF < SUMO, l,T , SUMNOI J ) ) SUMNOI JJoSUMO 
I F ( SUM' 1 , LT ■ SUM\'H 1 J ) ) SOMNh(J>»SUMH 
525 CONTINUE 

PEN.MUOl I »J)«PENNUO( l,J)*SU'MMO< Jl-SUMNOI J) 

PENMUH) 1 I J)»PENNUM( 1 , J)*SuMMH(w)*SIIMNhI J) 

IMPENMUOI I,J).GT,PMiXO< J)) PmAXOI I)»PENMU0( I , j) 
IF<PENMUH(I,J).CT,PM»XH<I)) PmAXHII >«PENMUM( 1 , j> 

.. . 530 CONTINUE . 

C 

C COMPUTE total FEEOLINE WEIGHTS FOR EACH UNE SIZE 
C 

IF (SYSNUM, EQ, 2) GO TO 550 

POE SOI I ) * A MAXI 1PHAX0I I JlRTBTMOd )*PDLO) 

PUES«P3£S0{ | ) 

SUM«0, 

SUMJ«0. 

014«OPO(I) 

00 535 MlD«liHIOMLO 

lov«n 

IO»IOMLO‘MIO) 

IM*I.MHU0<MID) 

II«1|KL0(H|0) 

SP1«SP1ML0(HI0) 
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STAR3690 
ST 4R369 j, 
STAR3692 
ST AR36 93 
STAR3694 
STAR3695 
STAR3696 
ST AR3697 
STAR3698 
ST4R3699 
ST AH0700 
STAR3701 
ST4R3702 
ST 4R3733 
ST4R0704 
ST4R3705 
ST4R3736 
ST4R3737 
ST4R0708 
TISUR3739 
ST 4RD710 
ST4R0711 
ST4R3712 
ST 4R3713 
ST4R3714 
ST4R3715 
ST 4R3716 
ST4R3717 
ST4R3718 
ST4R0719 
ST4H3720 
ST4R3721 
ST4R3722 
ST4R3723 

ST 4R3724 
STAR3725 
ST4R0726 
ST4R3727 
ST4R3728 
SI4R3729 
ST4R3730 
ST4R07J1 
ST4R3732 
ST4R3733 
5T4R0734 
ST4R3733 
ST 4R0736 
ST AR0737 
ST4R0738 
ST4R37J9 
ST4R0740 
ST4R3741 
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746, 


IF(IB,£Q.2) SPl*SPl**00l 1 ) - — - I -- 

... ... STAS0746 

1*1, 


SP2»SP2mL0< MID ) 

STAR0747 

746, 


SP3*SP3mL0(MI0) 

STAR0748 

749. 


IFtln.E0il3,0R,lD,£Q.i4) JOVa IOOCHID) 

STAR0749 

750 , 


CALL VT C TR L( P 0£ S, I0»IM,lI,0t*.SPl,SP2.SP3,I0V*l.WCT.W| ) 

STARQ790 

751. 


SUM* SU^+WGT 

STAR0751 

752. 

. 

Sum i s$wm J aw I - - - 

STAR0752 

753. 

535 

CONTINUE 

STAR0753 

754. 


WML0< I J«SUM 

ST AR3754 

755, 


WMLIO{IJ*SJMi 

ST AR0755 

756, 


SUMT »0 t 

STAR0756 

757. 


Su M 1 T*0 , 

STAR0757 

758, 



00 545 NL»liNE w - 

STAR0758 

759. 


SUM«0 , 

ST AR0759 

760. 


SUMI*0i 

ST AR0760 

761, 


MlDsMpELOINL) 

STAR0741 

762. 


DIA«0P3<NL> 

ST AR0762 

763, 


00 540 J*1|M10 

STAR0763 

764, 


Iu» IOELOIN l# J) 

STAR3744 

765. 


IMtjMtLOlNLi J) 

STAR&765 

706, 


II»IILLO<NliJ) 

ST AR3766 

767, 


lovan 

ST AR3747 

748, 


SPl*SPlELO<NL. J) 

STAR0748 

769. 


SP2*SP2EL0( NLi J ) 

STAR5749 

77C. 


SH3 = SF3EL0(NL. J) 

STAR3770 

771, 


IK 10,60 1 13 ,0R, 10,60,14) I0V»ID0E(NLiJ> 

STAR3771 

772, 


CALL wT C TR l (PD£S,IOi |M, ll,DlA,SPl,SP2.SPJ, IDV.1 iUCT.WI ) 

STAR37 72 

773. 


SUM*SL'’+WCT 

STAR3773 

7 74 , 


SUMJ iSUMt*wt 

STAR 3 774 

775, 

540 

continue 

STAR3775 

776 . 


WLLOI J*NL)«SUK . .. . . 

STAR3776 

777 . 


WfcU0(I.NL)«SU'1l 

STAR3777 

lib. 


SUMT bSU5T*5U 1 

STAR3778 

779. 


SU'MITtS U MIT*SUMl 

STAR3779 

780, 

545 

CONTINUE 

STAR3790 

761 , 


WELOTI I >«SJMT 

STAR3781 

762. 


WtLI0T< I >«SUMIT 

STAR37M2 

7»3. 


WL0T( I )iWM L 0( I )*WEL0T< I J 

STAR378J 

764, 


WLIOTt I )«WML10<1 )4WELI0T( I > 

ST AR3784 

785, 


WL0IT( 1 I’WtOTl I )*KLIOT( I ) 

STAR3785 

766. 

550 

IF (SYSMUM.E3.D CO TO 570 

STAR3786 

787. 


POESK I )*AMAX1<PMAXH{ 1 >iPT9Thh( I I.PDLHJ 

STAR3747 

768, 


PUESbHJESHI 1 1 

ST AR3798 

789, 


SUM*0 , 

ST AR3799 

790, 


SU'M *G > 

STAR3790 

791, 


DIA=WPO( I ) 

STAR3791 

792 , 


00 555 Ml 0*1 1 M I DMLH 

STAR3792 

793, 


IUV'0 

STAH3793 

794, 


Io«iomlh(mid) 

STAR3794 

795, 


IM*immlm(Mio) 

STAR3795 

796, 


i 1 * 1 imlhimidi 

STAR0796 

7 97, 


SP1*SP1MLH(M!D! 

ST AR0797 

798, 


I F ( ID , EQi 2 ) SP1*SP1»aOh!1) 

STAR3798 

799, 


SP2*SF2mLM(M10> 

STAR3799 

800. 


SP3*SP3mLM{M10) 

STAR0800 

8C1. 


JF< 10,23.13. OR. 10.E0.14J IOV«IOM(MIDI 

ST AR3601 

602, 


CALL WfCTRLlPDtSi IC . I M, 11 , 0 I A , SPl . SP2 . SP3 , IDV. 2. WCTi WJ I 

ST AR3 602 

803, 


SUM.SUMAWr.T 

STAR0803 
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804, 


5u*|,sUm!*W! 

STAR3804 

80S., 


555 COM INU£ 

S t AR3805 

606. 


6'MLHC ! >»SUN 

ST AR0836 

807. 


WCiLlMI 1 )»SJMI 

STAR.1807 

aot, 


ScM»C, 

ST AR0508 

609, 


SUM[r«0, 

STAR3B09 

610. 


00 36b ,Nl*l, NEl ....... . . . 

ST tROBIC 

«U. 


SUH«0, 

STAR3811 

612 j 


SUM! *0 • 

STAR0812 

813. 


M10«Ml0EUHtNU 

ST AR0813 

614. 


DU*wR3(NL) 

STAR0614 

eib. 


DO 560 J*1.M!0 

ST AROBli 

616, 


IU*I0ELh<N w ,J) . . ..... 

STaR-0816 

817, 


lM*I>4tlM<NL, J) 

STAR 0517 

816. 


1 I * I !ELH< NL, J ) 

STAR0818 

619, 


IDV»0 

ST AR0819 

620, 


SP1«SP1ELH(NL,J) 

STAR 0020 

821, 


SP2*SP2eLH{ NL, J ) 

ST4R0B21 

822, 


SP3«SP3ELH<NL, J) 

ST aA0822 

623, 


1 F ( 10 , £0 1 1 3 , OR , ID , E0 . 14) ] DVi I CHE t NL ( U > 

ST AR3B23 

62«, 


CALL »TcTRl(POES, IOi 1 M. 1 1 , D I A , SP1 , SP2 , SP3 , 10 V* 2, WGT , W I) STAR0324 

826, 


Su K = SU V|+ ''CT 

ST AR0E25 

6 26 , 


SUM|«SOhI*WI 

ST AR3826 

627, 


560 CONTINUE 

STAR0827 

626, 


WELH( l»NL)»SUM 

STARDC28 

829, 


w fcL I w( I , N l ) ■SUN l 

STAR0829 

83C . 


SURT«SUmT*3U'1 

STAR0830 

«3l, 


SUPIT»Su f 11T*SU'tJ 

STAR0831 

832, 


565 CONTINUE 

STAR3832 

833. 


WELHT ( I )*SJMT 

STAR0833 

834 , 


WELIwT< I > “3UMJ T 

STAR 0834 

833, 


WL«T( 1 1 >*WELHT< I ) 

ST A R08 35 

036. 


WLIHK 1 )«WNL!Ht I )*wEl|HT( | ) 

ST ARD636 

837, 


WL«TT( ! )«HLHT( I)*WLIhT( n 

ST AR0B37 

838, 


570 CONTINUE 

STAR0638 

839, 

C 

STAR0839 

840, 

C 

WRITE out THE. gimmick 

STAR0B40 

841, 

C 


STAR 3841 

842, 

c 


STAR0842 

843, 


IP4SS « IP4SS ♦ 1 

ST AR0&43 

844, 


IF (IPASS.GT.l) CO To 9’0 

ST AR0844 

845. 

c 


STAR0B45 

846, 


WHITE <6(575 ) 

STAR0846 

8 4 7 , 


575 FO»NAT«lHi, //////) 

ST AR0847 

848, 


WHITF <6(5901 

STAR0648 

<149, 


580 Fcp,iaK//Ti 23, ,/T33. 'SSSSS'(T4 2( 'SSSSSS' ( T5l 

( 'SSSSS' (T58, 'SSS' (STAR0849 

8 50, 


IT 63, 'S3 S' (Till, 'EEEtEE' (Tl2l( '•' (7T33, 'S' ,T38, 'S' (T42, 'S' , T50 1 ST AR095Q 

»51. 


Z'S'.T59,'S'»T63.'S S S(,t96,'******+*+*4**X+E 

' « T116, 'E •' ,/T33,STAR0B5l 

652 , . 


3'SSSSS' .T42, 'S5SS' (T50i 'S',T54( 'SS'(T59( 'S' ,T63( 'S S S ' , T96 , • ♦' , STAR0352 

853, 


4 TUI, 'E(,Tll6, ,/T33i 'S S«.T42,»S',TS0,'S 

S' ,T59, 'S' ,T63(STAR0853 

854, 


5'S S S'(T96,'*',Tlc7,'ooXOE E •'( 7T33, 

' SSSSS ',T 42, 'SSSSSSSTAR0854 

855. 


6' »T5i , 'SSS5S' (T58, 'SSS'(T63( 'S SS' t TV6, . T107, ' o • , Till , ' EEEEESTAR3B55 

856, 


7E* ,Tl2l| (/T96i ,Tl07, '0i,Tl23, '•' (7T96, 

,1107, 'o' ,/T7, 'SSSSSTAR3856 

857, 


8SS ' ( Tl6, 'SSSSS' (T26( (S' iT33( ' SSSSS ' ( T 42, ' SSSSS • 

,T55, 'SSSSS', T63, STAR0857 

658. 


9’SSSSS' |T74, 'S' (T81( 'SS S • , T96 , , T1U7. • o ' , 

/T7, 'S', Tie, 'S', ST AR0858 

659, 


AT25,'S S ' i T33, ' S S ' . T«4, ' S ' ( T57 , ' S t i T63, ' S 

S' ,T73, *S S' ,T81,STaR0859 


860, B'S S S , «T96.'*'<T107.'ot,T 12 3,»n,/T7,'SSSSSS',Tl8,'S',T24,'SSSSST*R0860 

861 , CS',T33i ' 5SS55 ' » T44 • • s • , T49 XXXX ' * T57 » 'S' ,T63, 'SSSSS' ,T72, 'SSSSS' »ST*R086i 
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8*2, 
863, 
86 - 1 , 
«i5. 

8t>6 , 

30 / , 
868 , 
869, 
8/C, 
8 / 1 . 
8 / 2 . 

873. 

874. 

875. 
8/6, 

877, 

878, 

879, 

ate, 

861. 

642, 

863, 

864, 

865, 
868 , 
887, 
668 , 
889, 
89C, 
691, 

eV2. 

691 , 
694 , 
8V5. 
896. 
897 , 

698, 

699, 

900, 

901, 
» 02 , 
903, 
904 , 
VOb, 

906, 

907, 
906, 

909. 

910. 

911. 

912, 

913. 

914, 

915 , 

916, 
n7, 
916, 
919, 


DTfll.'S S S' ,T96. ,T1C7, 'o' .Till. 'EfcLtEE' ,Tl2l, ••• ,/Tl2. 'S' , STAR3B42 
e T 18,'S',T23. , S',T29»*S'#T33>'S S’ , T<4 , • S' . TS7 , I s ' , T63, 'S S * , T 71 . ST AR3843 
e's s'.rei. ST4R0B14 

F'S S S' , 794. •♦♦♦♦♦♦♦♦♦♦♦♦♦''♦E' , Tll6, 'E' .T119. '«' ,/T7, 'SSSSSS' , STAR3645 
CT18, -S' ,722, -S' ,T30i 'S' *T33 i 'S S' , T 44 , 'S' , T57, ' S' , 763, ' S S', STAR3846 
H770,'S’./7B ( 'S',T8l,'S SS* , T 96 , ' * ' , 7 1U7 , ' a ' , 7 l 1 1 , • E E*'> STAR0847 
WRITE (6,595) ST AR38S8 

585 F0R,14T(T96, '♦' ,T107, <oaX6E E •' ,/796, '♦' # T 1 0 7 , 'o' ,7111 , 'EEEEEEST4R0849 
1' ,7121' ,/T96, ,T10/i 'f'.Tl23, '«* ,/T96. • ♦ ' , 7 1 07 , ' V ' , /7 4 7 , ' ♦♦♦+ST 4RD8 70 

2 + **•♦♦♦ 8 vC + 4 + 7, « ♦♦♦♦♦♦♦♦♦*♦♦♦♦* ♦♦♦♦RyC* ♦♦♦♦*♦♦♦' ,7107, ' C ' ,/T47, ,STAR087l 
37107, 'O' ,/747, 'X' ,7107. 'X' ,/747, 1107, •>' ,7724. •• . • • • STAR3672 

4* • • Z . • • • ST AR08 73 

5* Z • '•' |T37, 1 .' ,T47,'X' ,T1T7, 'X' ,T112, ,T117, STAR3B74 

6'»' ,/Tl8i '•',T38, '•' ,T47, **',T107, 'o',T114,'«' ,7117, '#',/T15 , '•' 1 ST4R0875 

7TJ9, ,T47, ,7137, 'o' ,TU6. '•' »/T12 ' • ' , T«7 , ' ♦ ' , 7107 , S7 4R38 76 

B'a',7118.'4!,/79,’*'.74l,'»',74?,' + '.n07,’o',7120,'»',/76.'» , i ST4R38 77 
9742, 7107, 'aoooBnoDDooOo', 7121, '•',/7V,'»', 741, ••',7120, S74R3878 

*'•' ,/712, '41,740, '•',7118, ,/Tl5, , TJ9. ,Tl 16, '»',/7l8,'»l, ST4R3879 
BT38, ,7114, •• • , ,/72l,'»', 737, '•',ni2,’»', 7117, l»',/724,'» • STAR3880 

C*66 S7AR3641 

0 • • • • ••••• •',////730> 'A PARAMETRIC PROPULSION SYSTEMS STAR3642 

estar7 transient analysis program' ,////tiuo» 'program i.d, * fdi306STar3893 
F ' 1 /TlCO , 'PROGRAMMER - R,F. HAUS V AN ' , /TiOO, ' DEPT . 62-13. BLDG, 104 ' ) ST AR 38 94 
590 CONTINUE STAR0B85 

C STAR3896 

C WRITE OUT THE INPUT PATA TABLE STaR0B97 

C STAR3848 

WRITE (6,735) ST AK3B99 

WRITE <6, 790)(ST( I ), 1*1,7) STAR3890 

WHITE (6,595) STAR3891 

.595 FORMaT( 1H0.T20, ' INPUT OATi FOR START TRANSIENT PROBLEM CONSIDERED STaR 3872 
1IN Tw I S ANALYSIS,',//) STAR3893 

WRITE (6.6301N5I2E STAR3B9A 

600 FORMAT! T5 , 1 THE NUM )£R OF LINE SIZES TO BE CONSIDERED IS ',151 STAR3895 

GO TO (605,615,625) , SYSNUm STAR3896 

605 WRITE (6,610) STAR3897 

610 FORMA T < T5, 'THE PROBLEM COnSIDE r S THE OXIDIZER FEED SYSTEM') ST4R3898 

GO TO 635 ST AR3899 

415 WRITE (6,620) STAR3900 

620 FORMAT! T5, 'THE PROBLEM CONSIDERS THE FUEL FEED SYSTEM') STAR3931 

GO TO 635 ST AR0902 

625 WRITE (6,630) STAR3903 

630 F0RMAT(T5, 'THE PROBLEM CONSIDERS BOTH 5XIDIZER AND FUEL FEED SYSTESTAR3934 
IMS') ST AR0905 

635 CONTINUE ST AR3906 

WHITE (6,640)N0P1,R0P,40OTNO,wC0TNh,V.'GTN,FNUM 5TaR3937 

640 F ORMaT ! T5 , ' THE NUMBER OF ENGINES FOR THE VEHICLE IS ',15, STAR3908 

1/T5, 't m e njmber of engines for each feed system is ', 15 , stah3939 

2 /t8, 'the nominal oxidizer flow rate 1 s * , fs , 2 , ' lbs/sec',/T5, 'tstar091o 

3HE NOMINAL FUE. FLOW rate I S ' , F 8 , 2 , 1 L^S/SEC ' , /T5 . ' THE VEHICLE L0ASTAR3911 
40E0 WEIGHT IS* ,F12,2, • LBS ' , /T5, ' The NOMINAL ThRuST FOR EACH ENG INST AR1912 
5E IS',FlO,2,' lBS') STAR3913 

WHITE ( 6 , 6 45 ITENINO, TENl N h »PEN t OL» HEAD 1 0 , OXHTLN , rE AO I H, HYHTLN, UlVLST aR39 14 
1 1 0. ULVL IH, lOADOI , L3APH1 , ASK I N, AQOME , ATCT STAR0915 

645 F0RMAT(T5, 'THE BLL* OXIO, ENGINE INL^T TEMPERATURE IS',F8,2,' DEC,STaR3916 
1R'./T5»'Th= 3UJ< FUEL ENGINE INLET TLMPtHATURE IS'.F8,2,' DEG.R', STAR0917 

3 /T5, 'THE STAR3918 
4C0MP0NENT PRESSURE TOLERANCE [S',F6,2,' PSI • , /T5, ' THE OXIO. HEAD H5TAR0919 
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920 . 

921. 

9 " 2 . 

923. 

924. 

925. 

926. 

927 . 

928. 

929. 

930. 

931. 

932. 

933. 

934. 

935. 

936. 

937 . 
93®. 
939. 
94 C . 

941. 

942. 

943. 

944. 

945. 

946. 
9‘7. 
948 . 
V49, 
950, 
931, 

952, 

953, 

954, 

955 , 

956, 

957, 

958, 

959, 

960, 

961, 

962, 

963, 

964, 

965, 

966, 

967, 

968, 

969, 

970, 

971, 
9*2. 

973. 

974. 

975, 

976, 
9”, 


5E1CHT IN The TtNK IS'.FS.S,' r T ■ , /T5 , • The OXIO, *EaO HEIGHT IN TWESTAR3920 
6 EtfcO LINE 1 5 ' , : 8 , 3 , * FT 1 , /T5, i ThE FutL Ht*J rttl5-iT IN THE TANK 1 $'STaR3921 
7.F8.3,' FT',/T5»'T<E fuel h£aq HEIGHT IN THE F E Eh LINE IS', FA, 3, STaH.1922 
8 *FT»,/T3 , 'THE INITIAL ULLAGE VOLUME IN THE CXICI7ER TANK IS ' iFIO . OST *R 39 23 
9 » ' CU , F T I , /r 5 , 1 THE INITIAL ULLAGE VOLUME IN THE FUEL TANK 1 S ' , F10 , 05T AR3924 
At' CU.FT' ,/T5, 'The Initial OxjCIZER LOADING IS',F12,0,' LBS' ,/T5, 'STAR3925 
IjThE initial fuel LOACIN'C IS'iFIZiOi* Lab* ,7T5 | 'The EXTERNAL SURF ACST AR3926 
CE area of the 3ROP Tank IS'tFl2,l,» so, FT, ' ,/T5, 'THE external SUKST AR3927 
OFaCE aHEA of the L0X/LH2 BULKHEAD I S ' 1 F# , 1 1 ' SQ, FT,*,/T5,'THE TOTSTAR3928 


e*l surface area is therefore* ,fi 2, 1, • su, ft,*> 

WRITE 1 6 1 650 TPjLCt p OLH 


ST AK3929 
ST4R09 )0 


660 FORMAT ( T5. < Th£ OXYGEN .FEEolINE DESIGN PKtSiUKE IS',G13,8,» PSJ',/ STaR39J1 
1T5i ' ThE HY3R0GEN FEEcLINE DESIGN PRESSURfc IS',G13,8,' PSP) STaR-3932 

WRITE 16,785) STAR3933 

WHITE (6,665) ST A R 3 9 3 4 

WHITE (6,655) ST 4R3935 

655 F0RMaT(T5, 'THE TANK CEOMETRY J\P UT VALUES ARE AS FOLLOWS - ,',/) STAR3936 
WHITE (6,660)(EQLR1<N)*N«i,9) 3TAR3937 

.660 FORMAT (T5, 'Ll»'»FB.3.Tl7, • l2* ' 1 F« , 3, T29 , ' L->* ' , FB , 3. T41 , 'L4» ' ,F8 , 3. ST 4R39 38 
1T63, 'Hl« • ,F8,3,T65, 'R2«' ,Fe,3,T77, iR3*» ,FB,3,T89, ' R4« ' , F8 , 3 , T101 , STAR3939 
2 ' H5i ' , Fs , 3 ) ST4R3940 

white ( 6 1 665 ) . STAR 0941 

665 FORMAT(lHO) ST4R3942 

WHITE <6,670) ST AR3943 

670 FORMAT* T36, ' TA3LE OF FEED L<N£ 0* T A » 1 /T20, • OX Id I ZER LINES'* »T60, 'FUSTAR0944 
1EL LINES' »//TlD, '0IAHETER>,T2 2 i 'LENGTH* ,T32, 'K-FaCTOR' ,T50. 'DIAMETSTaR3945 
2ER',T62, ' LENGTH* , T72, ' K-FaCTOR', /TUP INCHES ',T2lt • FEET ' , T51 , • I NCHST AR09 46 
JES' ,T63, 'FEET',/) STAR3947 

00 685 K«1,NSIZE ST4R3948 

IF (k,GT,NEL) 50 TO 675 STAR3949 

WHITE (6,680)0’DIK),OPlPEL(K),CKPOfK),HRO{K),HPJPEL(K),HKPI3(K) STAR3950 

GO TO 6g5 ST4R39S1 

675 WRITE (6,6BO)0 3 0<K),TOTMLO,OKPC(K),HPD(K>tTOTMLH,HKPD<K) ST4R3952 

680 F0RMaT(T11iF6,2,T21iF7,2,t33,f7,4,T51,F6|2iT61,F7,2»T73»F7,4) STAR3953 

685 CONTINUE STAR3954 

WRITE <6,665) STAR39S5 

IF ( SYSiNUM , E 3 , 2 ) GO TO 730 ST4R3956 

WRITE ( 6 1 695 ) 5TAR3957 

695 F0RM4TIT15, 'COMPONENT OESCRIPTCRS F0« MAIN OXYGEN FEEOLINE' ,//) STAR3958 

WRITE (6,730) ST AR0959 

700 FORMAT ( T5, ' COMPONENT TYPE MATL 1NSUL SPEC1 SPEC2 STAR3960 

1 SPFC3'/) STAR3961 

DO 705 Pl.MJOMLC STAR3962 

705 white «6,7l0) I , ICMLOJ I ), IMMLOI I ), I l ML 01 I ) , SPIMlOI I >,SP2HL0( 1 ) # SP3MST AR0963 
1 L 0 ( I ) STAR39A4 

710 FUR,MAT«T7, 13,Tl7, l3,T23,l2,T30tI2tT36,GV,4.T47,G9,4,T58,G9.4) STAR3965 

DO 725 NL*1,NE. ST AR3946 

M 1 0 *M 1 0£L0( NL ) STAR 3 967 

WRITE «6,7l5)N. STAR3968 

715 FORMAT(lH0,T14, 'COMPONENT DESCRIPTORS FOR ENGINE OXYGEN FEEOLINE NSTAR0969 
1UMBER Ml,/) STAH0970 

WHITE (6,700) ST AR0971 

DO 720 | "1 , MIO STAR3972 

720 WRITE ( 6 , 7i0 ) I , IDELOl NL« I ) « iMELOINLt I ) 1 1 IELO(Nl, I ) * SP1EL0INL ,I),SPSTAR3973 
12ELOCNL,I) ( SP3;LO(NL,1> _ STAR3974 

725 CONTINUE STAR0975 

730 IF (SYS.NUM.EO.i) GO TO 760 STAR0976 

WHITE 16,735) STAR0977 
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V7a, 

979, 

VoC. 

»n. 

962, 
9HJ, 
964 , 
985 , 
966 , 
Vb7, 
938 , • 
969, 
WO. 
v«l, 
W2. 
WJ, 
W4, 
W5, 

wa, 

997, 
99 8 . 
V99 , 
1000 , 
1001 , 
1002, . 
10C3, 
1004, 

1003. 
1006 , 
100 7 , 
1008. . 

1009, 

1010. 
1011. 
1012 , 

1013, 

1014, 
1018, 
1016, 

1017, 

1018, 
1019, 

1 0 2 C , . - 
1021 , 
1022 , 

1023, 

1024, 

1025, 

1026, 
1027. 
1026, 

1029, 

1030, 

1031, 

1032, 

1033, 

1034, 

1035, 


735 FCR.MaT<T 15. 'COMPONENT DESCRIPTORS FOP "AlN HYDROGEN FEEDL1 NE' , // > STaR 3978 
“Hire *6,730) STAR3979 

00 740 J ■ 1 ,M I DMLH STAR3980 

740 WRITE * 6; 7l0 ) I , ICMLHl ) ) < IMMLHI ! > • 1 IMLHl I ) »3 PiMlHI ! ) »SP2HLH( I ) , SP3R5T A R 39*1 
1LH( I ) STAR3W2 

00 755 VU>liNEi» ST AR3983 

3EUMNL ) STAR0984 

WRITE I 6 # 745 IN STaK‘985 

745 FORMAT! l«C.Ti4, 'COMPONENT DESCRIPTORS FOR ENGINE HYDROGEN FEEDL INESTaR3986 

1 NiJMSER ',11,/) ST AR3937 

WRITE *6(730) STAR3918 

00 750 I * 1 , M 1 0 S T A R 3 9 8 9 

750 WRITE I 6i 710 ) t , 1 DELHI NL« I ) , lMELHlNL, 1 ) 1 1 IEUHINLi I ) iSPIELHI N ti I ) iSPST 4R399Q 
12ELHINU, I ),SP3ELH(NL, I ) STaRD991 

755 CONTINUE ST4R3992 

760 CONTINUE STAR0993 

WRITE (6,785) ST4R3994 

WHITE (6,765) STAR3995 

765 F OHMa T ( l'HO , T20, ' THE TIME DEPENDENT PERFORMANCE CHARACTERISTIC 1NPUST4R3996 

IT VALUES ARE AS FOLLOWS - STAR3997 

WRITE <6( 7701 ST AR3998 

770 FORMA T ( 1H0,T5, 'TIME »,Tl5, 'NPSPC ,T25, ' NpSpR' , T35, ' WDTFRO' , T45, 'WDTSTAR3999 
1FHH< ,T55 i <f IFRaC ,T«5,'PEnmN 0' , T 75 , 1 PENMNH ' »T85, 'PPDGOT* ,T95, 'PP0G5TAR103Q 
2HT' ,Tl06, 'TOGOT' , T116 , ' TDGH t 1 ) STAR1031 

DO 780 N"1,NPTS STAH1032 

WHITf (6,775)TIMEA(N),NPSPO(N),NPSPHINJ»WOTFRO{N),WOTFRH(N),FIFRACSTAR1CT3 
l(N),PfcNMMO(N), : »ENMNH(N>,PPOGOT(N),PPDGRT(N),TUCOT(N),TDGRT(N) ST AR1G14 

7 75 FORMAT ( T3 , ?6 ,2 , T14 , F6 , 2« Tj4 , F6 , 2, T35, F8 1 3, T 45 , F6 , 3# T55, F6 . 3, i65 , STaRIO' 35 
1F6,2,T75,F6,2,T85,F6,2,T95,F6.2,T105(F6,2, ru5,F6,2) 

780 CONTINUE 


WRITE °UT THE SINGLY SUBSCRIPTED VARIABLES TaBlE 


STAR1036 
STaRIO'17 
STaRIO'B 
STAR1C39 
ST A KlOtQ 
STaRICU 
STAH1012 
STAR) 013 
STAR1014 
STAR1015 


WHITF 16,785) 

785 Ft)RMAT(lHl) 

WHITE ( <5 , 790 ) < ST< I ), I *1 1 7 } 

790 F0 , RMAT(T«2,7A4,//) 

WHITE (6,795) 

795 F0RMaT<T 3, 'TRAMS,' ,Ti4. 'WOCOT 1 ,T24. 'WQUOT* ,T33, 'VEHICLE' ,T45, 'T/WSTAR1016 
1 iT 5J, OELPRD' , T63, ' DEL p HD • , T?3 , ' PR0P*0 ' , TB 3 , • PROP-F ' » T92 , • PROP-TOTST t R101 7 
2 ' , Tlfl4 , 'PEWS' , T114 , ’ P£NG • ) STaRIOIB 

WHITF ( 6,830) ST AR1C19 

800 FORMAT (T4, 'TIME' ,T14, 'OXlo, M24. 'FUEL' ,T33, 'WEIGHT* ,T44, 'RATJC * STAR10 20 
1T54, '0*10, ' « T 6 4 , 'FUEl ' ,T7«, ' JNCR' ,T#«, ' J NCR ' , T9 4 , ' CUM' , Tl04 , SUP, 1021 

2 'OX ID ' , Til 4, 'FjEL'i/7) STa HI 022 

DO 620 N = 1,NPT5 ST AR1023 

WHITE < 6 , 635 ) T IMEA ( N) STAR1024 

805 F ORM A T (T2#F6,2) STAR1025 

IF (N,EQ,\3TS) GO TO 815 STAR1026 

WHITE ‘6,8i0)W3OOTO(.N),WODOThcN),VVGTNU(N).FTOW(N),0LPHDO(N),DLPHDSTaR1027 
1H(N) (FC.OTOtN) ,PCwGTh(N) iPROwo.TIN) .PEnOO(N) (PEnGhIN) ST AR1028 

810 FORMAT(T12,F8,3,T22,F8,3,T32,Fl0-2.T44,F5,3 # T53,F6,2 l T63,F6,2»T7i,ST4R1029 
lF8 1 3,TBl,F8,3,T91 ( FlC,3,Ti03,F6 l 2.T113<F6,2) STAR103Q 

815 CONTINUE STAH1031 

820 CONTINUE ST ARIO 32 

ST aRIO 33 

WHITE OUT THE 3ELTA«P ACCELERATION DATA array AS FIT) STAR1034 

STAR1035 
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1036 , 



NMA«NfcLP*ll 

ST AR 1 0 36 

1037, 



CO 10 <825, 875, 8251. SYSNUk 

STAR1037 

1036, 


825 

WHITE <6.830) 

ST AR10 38 

1039, 


830 

F0SM4T<1H1) 

STAR1039 

10*0, 



WHITE <6,835)<ST< 1 >i 1»1.7> 

ST4R1040 

10*1. 


835 

F09M4T<T2J,746,T66.'. OXVcEN SUPPLY SYSTEM* ( 

STaR10*1 

... 10*2,. 



WHITE <8.040) 

STAR1C*2 

10*3, 


840 

FOHM*T<lHO,T38, 't-ELTi-P To SUPPLY ACCELERATION HEAD') 

STAR10*3 

10*4, 



WRITE <6i845H0P0<*O,K«NElP**4MA) 

ST AR10*4 

10*5. 


845 

EORMaT<1HO,T2, 'DELTA*, T8 ,F«,i»' INC*' • T19. F4 , 1 . ' I NCH ' # T30 . F4 , J , 

STAR1045 

10*6, 



1' INC**' i T40,F4,1 i ' INCH* ,t50,f4,1, * I NCM ' , T6U , F4 , 1 , ' JNCH'.TTO. 

STAR1046 

10«7, 


2F4 , 1 , ' |NCH«,T80.F«,1,» InCH' ,T 90,F4,ii ' t NCH» , T100.F4 , 1 , • INCH', 

TSTAR1047 

_. 10*8 , 



3110,F<.1i' INCH'.Tl20.F«.l. ' l^CH') 

STAR1048 

10*9, 



WHITE <6,850) 

ST AR1049 

1030, 


850 

F0«MaT<T2,*TIM:' ,T8 .* MAIN L^E*.T1«,' MAIM LISE ' . T30 , ' MA IN LINE 

•STAR1050 

1051, 



l.T40,' v >AlN LINE' ,T50. 'MAIh L InE • . T6C l ' "A IN LIN£',T70 .'MAIN LINE' 

.stahiosi 

1052, 



2T&0 ,' M AlN LINZ' ,T90 . 'main L I NE • . TlOO, • MA t N LINE* ,T11Q, 'MAIN L I NE ' ST AR1052 

1053, 



3.T120, 'MAIm LINE'/) 

ST AR1 053 

1054. 



DO 870 N«1,NPTS 

STAR1054 

1U55, 



WRITE <6.855 )T! ME A(N) 

ST AR1Q55 

1056, 


855 

FOHMAT<T2,E5,2) 

STARi056 

1057, 



IF IN.EQ.NaTS} CO TO 665 

STAR1057 

1058, 



WHITE < 6.860 XOLPACOC I , N) , I «NeLP,NMA > 

STAR1058 

1059, 


860 

FORMAT < T9 ,E8 i 3,Ti9 ( f8,3,t31.e8,3.T41.F8,3.T51,F8,3«T6i,E8,3. 

STAR1059 

1060, 



1T71 ( c8,3iT81.F8|3iT91iF8,3.Tiq1,F8,3.T111.F8|3|T121»F8,3) 

STAR1060 

1061. 


865 

CONTINUE 

STAR1061 

1062, 


870 

CONTINUE 

STAR1062 

1063, 


875 

CONTINUE 

STAR1043 

1064. 



IF (SYSnUM,E3,i) CO TO 895 

STAR1044 

1065, 



WHITE <6,830) 

STAR1045 

1066, 



WHITE <6,880XST<I>.I«i.7> 

STAR1046 

1067, 


880 

FORMAT <T23, 7A6, T66, ' • hYOROCEN SUPPLY SYSTEM') 

STAR1067 

1068 , 



WHITE <6.840) 

STAR1068 

1069, 



WHITE <6.B45XhPC<«),K*NElPiNmA> 

STAH1C69 

1070 , 



WHITE <6,8501 

STAR1070 

1071, 



DO 890 N»1,NPT3 

ST AR107 1 

1072, 



WRITE < 6 . 855 ) T IMEA < N ) 

5TAH10 72 

1073, 



IF (N.EQ.NRTS) CO TO 883 

ST4H1073 

1074, 



WRITE <6i 860)OLPACH< I,N»,t»NElP»NMA) 

STAR1074 

1075, 


885 

CONTINUE 

STAR1075 

1076, 


890 

CONTINUE 

STAR1Q76 

1077 . 


695 

CONTINUE 

STAR1077 

1078, 

C 



STAR1078 

1079, 

C 


WRITE °UT THE 3ELT4-P LINE LOSS DATA ARRAY AS F(T> 

ST AR10 79 

1080. 

C 



STAR1050 

1081, 



CO TO <900,925,900). SYSNUM 

STAR1081 

1082 , 


900 

WRITE <6.830) 

STAR1052 

1083, 



WRITE <6.8J5XST<I)»I«li7) 

STAR1083 

1084, 



WHITE <6.935) 

STAR1034 

1065, 

- 

905 

FORMAT (1H0.T-26, 'DELTa-P OuE To LINE FRICTION AND-CONFIGURATION LOSSTaR1055 

1086. 



1SES') 

STAR1086 

1087, 



WHITE < 6 . 845 ) ( OPT ( K ) , K»NElP» NMA > 

STAR1087 

1060 , 



WRITE <6.8501 

STAR1088 

1089, 



DO 920 N'l.NPTS 

ST4R1089 

1090. 



WRITE <6i855)TI«E4(N) . 

STAR1090 

1091, 



IF (N.EQ.NPTS) CO TO 9l5 

STAR10»1 

1092, 



WRITE <6.9i 0X3LPLN0< l ,N), I "NeLP.Nma ) 

STAR1092 

• 10»3, 


910 

FORMAT<T’ ,E8,4.Tl9,E8,4,T31.E8 l «.T4i,EB,4,T51,E8,4,T61.Ea,4, 

STAR1093 
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1094, 

lT71,Fd<4iT81aCi«4,T9l<tS,4,TiQl,£8,4i T111.&6 • 4 , Tl2l. £1 > 4 ) . 

ST4R1094 

1095, 

915 

CONTINUE 

STAR1095 

1096, 

920 

continue 

STAR1096 

1097, 

925 

CONTINUE 1. 

STAR1097 

1098, 


IF ISVSNUN,E3,1J S3 TO 94q 

5TAR1098 

1099, 


WHITE <6. 830> 

STAR1099 

1100, 


WHITE t 6 1 630 H ST ( I ) < I » 1 1 7 ) 

STaRUOO 

1101, 


WHITE *6i905» 

STaRHOI 

1102, 


WHITE (6.845)<HPD<KJ,K«NElPiNMA) 

ST AR1102 

1103, 


WHITE (6.850) 

STARU03 

11C4 , 


00 915 N*1,NPTS 

STARU04 

1105, 


WHITE < 6 . 8 55 ) T I ME A ( N ) 

STAR1105 

1106, 


IF (N,£Q,N?TS) CO TO 930 

ST AR1136 

1107, 


WRITE (6»9lO)(3LPLNHt 1 , N> . I »NELP > NMa > 

STaRU07 

1106 , 

930 

CONTINUE 

STAR1108 

1109, 

935 

CONTINUE 

ST AR1109 

1110, 

940 

CONTtNUE 

SUR1110 

1111. 

C 


STARlltl 

1112, 

C 

write out the engine feeoune pressure drops 

STAR1112 

1113, 

c 


STaRIHS 

1114, 


IF (SvSnUm,E3,2) CO TO 975 

ST4S1114 

1115, 


WHITE (6.832) 

STaRUIS 

1116, 


WHITE <6«945HSTU).!*1i7j 

ST AR1116 

1117, 

945 

form4T(T23, 746, T66# '-oxygen engine feedline system' > 

ST AR1H7 

1118, 


WHITc (6.950) 

STAR1U8 

1119, 

950 

FORM4T(1HO,T13, 'CEUT4-P To Supply 4CC£I.eh4T ion head' .T&4, >delta-p 

ST aRI 1 19 

1120, 


10UE TO L I N : FRICTION 4N0 CONFIGURATION LOSSES //T2 ,' DELTA '. T13 , 

STARU20 

1121. 

2* ENGINE! ,T26. ' ;NG I NE ' , TJ9 , < Eng I NE ' . T52 1 ' ENG I NE • , T65 . • ENG I NE ' . T7S . 

STARU21 

1122, 


S'ENGINE' .TJl. ' ENGINE', T104, ' ENGINE', /T2, 'TIME* ,Tl 3, 'LINE NO 1* . 

ST AR1122 

1123. 


4 T26 , ' l I NE NO 2',T33,'LINE NO 3'.T52,'LlNE NO 4 <,t65,»LINE NO 1'. 

STARU23 

1124, 


5T78 , ' L I NE NO 2'«T«1,'LINE NO 3 ' , T104 , 'LINE NO 41) 

STaRI 124 

1125, 


00 970 N S 1 , N'PTS 

STAR1125 

1126, 


WHITE ( 6 . 855 > T I MfA < N ) 

STAR1126 

1127, 


IF IN,E3.N?TS) GO TO 970 

STARU27 

1128, 


IF (NEU.EQ.4) 30 TO 960 

STAH1128 

1129, 


00 955 I *NELP > 4 

STAR1129 

1130. 


dlpaco< I <N)»0 . 

5TAR1130 

1131, 


DLPLNOf I (N)=3, 

STAR11J1 

1132, 

955 

CONTINUE 

ST ARI 1 32 

1133. 

960 

WHITE ( 6.9651 OLPAC011.N), J»N),!»1.4) 

STAR1133 

1134, 

965 

F0HM4T(l0X,8G13,8) 

ST ARI 134 

1135, 

970 

CONTINUE 

ST AR11 35 

1136, 


IF (SYSNUN.E3.1) GO TO 1000 

STAR1136 

1137, 

975 

WHITE (6.830) 

STARU37 

1138, 


WHITE (6.980) <5T< I )» I»li 7) 

STAR1138 

1139, 

980 

FOHM4T(T23.7A6.T66, '-HYDROGEN ENGINE FEEOLINE SYSTEM') 

STAR1139 

1140, 


WHITE <6.950) 

STAR1140 

1141, 


00 995 N=l.N p T3 

STARU41 

1142, 


WHITE < 6 . 855 ) T IMEa ! N ) 

ST ARH42 

1143, 


IF (N,EQ,N3TS) GO TO 995 

ST AR 11 43 

1144, 


IF (NEL.FQ.4) GO TO 990 

STAR1144 

1145, 


DO 985 I *NELP > 4 

STaRI 145 

1146, 


DLPACH ( 1 1 N ) *0 • 

STAR1146 

1 1 « 7 , 


DLPLNH! IiN)40, 

STAR1147 

1148, 

985 

CONTINUE 

5T4R114B 

1149 , 

990 

WHITE (6,965>(0LP*CH< I.N),I«1,4),<0LPUNM(1'N)»I*1'4) 

STAR1149 

1150, 

995 

CONTINUE 

STAR1150 

1151. 

1000 

CONTINUE 

STAR1151 
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1162, 

1163, 

1134, 

1156, 

1166, 

1137, 

116 0 , 
1139, 

1163, 

1161, 
1162, 
1161, 

1164, 
1166, 
1166, 

1167, 

1168, 
1169, 
117C-, 

1171, 

1172, 

1173, 

1174, 
1176, 

1176, 

1177, 

1178, 

1179, 

118 3 . 
1161 , 
UH2. 

1183, 

1184, 
116 6, 
1186. 

1167, 

1168, 
1169. 

1190, 

1191, 

1192, 

1193, 

1194, 
1196. 

1196, 

1197, 
1194, 
1199, 

1ZU0, 
12C1, 
123 2 , 
123 3, 
12C4, 
1236, 
1236. 
120 7 , 
1238, 
1209, 


white out the jllag£ pressure requirements as f<t> 


STARH62 
ST AW1 1 53 
STaRI 154 

CO TO (1005,1330, 10051. SVSNUM STAR1155 

1005 WHITE (6,830) STAH1166 

WHITE l6,835)<sT<l),I«t,7) ST AR11 57 

WHITE * 6< 1010 ) NOP STAH116B 

1010 EORMAT«lW0,T30, 'ULLAGE PRESSURE REQUIRED FOR',]!,' ENGINE 0 PERaT10STaW1159 


IN' ) 

WRITE <6i845)(0P0(K),KiNElP»NMA) 

WHITE 16,850) 

00 1025 N« 1 , \IP TS 
WHITE • 6 , 855 ) T IiMEA t N) 

IE 1 N , E3 , N S TS ) GO TO 1020 

WHITE 16,1315)(PULU0( I,N).I«NELP,NHA) 

1015 F0R.MaT<T 9,?8,3,T19,E8.3, T31 ,p8 , 3, T41 , E» , 3, T5l , E8 , 3, T61 ,EB ,3, 
lT7i,E6O,T81,Fe,3,T9l,F8,5,Tl0l»F».3,UXl.F#,l,Tl2i»F#,3) 

1020 CONTINUE 
1025 CONTINUE 
1030 CONTINUE 

IE ISySnUM.EQ.I) GO TO 1045 
WHITE 16,830) 

WHITE 16, 880 1 C ST« I 1 . 1*1,7) 

WHITE 16,1310) NOP 

WHITE «6,843)(HPD<><).K«NELP<NmO 

WHITE 16,850) 

00 1040 N«1,NPTS 
WHITE 16,855)TIMEA(N) 

IE <N,Eq,n?TS) GO TO 1033 

WHITE 16i 1013)(PUULH( t ,N) , l«N£LP »NMA ) 

1035 CONTINUE 
1040 CONTINUE 
1045 CONTINUE 

C WRITE OUT THE MINIMUM ULLAGE PRESSURE REQUIRED, THE PRESSURE ON 

c the tank bottoms and the line head pressures 


staruso 

STaR114i 

STAR11S2 
STAR1163 
ST AR1 164 
STAH1165 
STAR1166 
STARU67 
STARU68 
ST AH1149 
STAHU70 

ST AR 1 1 7l 
STAR1172 
ST AH11 73 
STaRII 74 
STARU75 
ST AH 11 7 6 
STAR1177 
STaRII 78 
STaRII 79 
STAR1150 
STaRI Hi 
STARII 42 
STARU83 
STAR1184 
STARU45 
STAR1146 
STARII 87 
STAR1188 
STAHU49 
STAR1190 
STARll’l 


WRITE (6,785) 

WHITE 1 6,790XST(|)iI*1|7) 

WHITE '6,1350) 

1050 E OHiMA T 1 T2 , 'PRESSURE ANO VOLUME VALUES FOR FLUID VAPOR , Ml N , ULLAGE , ST AR1192 
1TANK BOTTOM, LINE HEAD, ULLAGE vClUHE.TaNK HEAD HEICHT AND ULLAGE WESTAR1193 
2IGHT' *7 ) STAR1194 

WHITE 16,1353) STAK1195 

1055 FORMAT! T3, ' TRA NS , ' , Tl3 , 'ULL VAP ' , T2l , ' ULL VAP ' , T29 , ' M I NULL ' , T37 , 'MINST AR1196 
1ULL* ,T«5i 'TNK83T' ,T53 , 'TNkBOT' ,T61, ILINHEO' ,T69, 'LINKED 1 ,T78, 'ULLVSTAR11 97 
20L' ,T87, 'ULLVO.' ,T95, 'TNKhED' ,Tl03, 'TNMHE0',TU2, ' ULLWGT ' , T121 . STARI 198 
3'ULLVG T ' ) . - ST4R1199 

WHITE 1 6,1060) STAR1230 

1060 E0HMAT1T4, 'TIME' ,T1«. 'OXIO. ' , T22 , ' EUf L ' , T3D, * OX 1 0 , ’ , T38, ' FUEL ' » T«6ST AH1231 
1) 'OX 10, »,T5«. ' r UEL ' *T62»'0Xl0,',T70, ’FUEL' *T79, • OX 10 , ' , T88 , ' FUEL ' « ST AR1202 
2T96, 'QX JO, ' , Tl3« » 'FUEL' lTll3, 'CXID, ' « T12Z, 'FUEL 1 ) STAR1233 

WHITE (6,1365) STAR1234 

1065 FORMAT! T5, 'SEC' ,T14, tpsl»,,T22, IPSIA' ,T30, 'PSU',T38, 'PSIA* ,T46, 'PST AR1205 
IS X A ' ,T54, • as I A ' ,T62| 'PSlA',T7o, 'PS[ a',T 7«, 'CU,FT, ',T87, 'CU.FT, ' , STAR1236 
2T97, ,pT, « ,T105, 'FT,' .TllA.'LBS' ,T122, 'LBS' »/) STAH1237 

00 1086 N»1,NPTS STAR1208 

WHITE 1 6 , 1-370 )T IMEA(N) STAR1209 
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1213, 

<211, 

1212, 

1213, 

1214, 
121b, 
1216, 
1217 , 
1210, 

1219, 

1220 . 
1221 , 
1222 , 
1223, 
1224 , 

1225, 

1226 , 

1227, 

122a, 

1229, 

1230, 

1231, 

1232, 

1233, 

1234, 

1235 , 

1236 , 

1237, 

1238, 

1239, 
1243, 
1241, 
12‘2, 

1243, 

1244, 

1245, 

1246, 

1247, 

1248, 

1249, 

1250, 

1ZH, 

1252, 

1253, 

1254, 

1255, 

1256, 

1257, 

1258, 

1259, 

1260 , 
1261, 
1262 . 

1263, 

1264, 

1265, 

1266, 
1267, 


1070 F0RMaT<T2.:6.2> 

IF (M.tO.NOTS) CO TO 1080 


ST AHlclO 

sim2u 


Jw'JEj.i- SUR1212 

WHl tE <6«1075)FUVAPO,PJV*PH.PuLLRO(I l NJit'UULRH( I,N).PTKBTO( I , N > , PTST AR1 2 1 3 

IKEThi l.’‘!),:>VOLN0(N).rn0LNw<N),lLVL02<N>,UL9LH2<Nl.WEAD02(N>>HEADW2STAR:214 

2t\),.'TJLCO(\)(«Tl'L3H(N) ST AR 12 15 

10 75 FOS;-iiT(T13,F6, 3 , T2 1 , F 6 . 3 , T29 , e 6 , 2 . T3? , F 6 1 2 , T45 . F6 , 2 . T53. F6 . 2 . T6l , ST «N 12 16 
lF6,2.T69iF6 l 3,T77,F7,i,T86,F7.1,TV5,F6r2»T103.FS.2iTlU»F7,liT120.STi«lR17 
2F7.1) STAR1210 

1080 COMTt>\i»E STAR 1219 

1085 CONTINUE STAR! 2 20 

C ST AR1221 

c write out minimum required ullage pressures stari2?2 

C ST AR1223 


GO TO <1093, 1110(1090). STSNUh 
1090 WHITE < 6 i 833 ) 

WRIT? <6,835)<ST(N),N*1,7) 

WRITE < 6 . 1 D95 ) vOP 

1095 FORMAT! 1H0.T20. 'f lMRUR ReOUIREQ ULLAGE PRESSURE F0R'.I3<« 

ioperation s£R main feed line') 

white <6.S45)(0PC(K) . K*N£lP» NMA ) 

WRITE < 6 1 350 ) 

DO HOP NiiiNPTS 
WHITE <6,855)TIMEA(N) 

IF <N,£C.N=TS) GO TO 1100 

WRITE < 6 > 1 315 ) < PULURCt 1 . N ) , I «NELP » NKA ) 

1100 CONTINUE 
1105 CONTINUE 
1110 CONTINUE 

IF (STSnUM.EO.I) GO TO 1125 

WHITE < 6 < 8 30 ) 

WRITE <6»880XST(N)»N»1»7) 

WHITE < 6 . 1095 ) \0P 

WHITE < 6 i 845 ) < WPC ( K ) , K*NElP » NMA ) 

WHITE <6.850) 

00 1120 N«i,NPTS 

WHITE <6.85S)TIMEA<N) - . 

IF (N,E5|N 3 TS) GO TO 1115 

WHITE <6il3l9)tPULLRw<I.N>,l»NELP|NMA> 

1115 CONTINUE 
1120 CONTINUE 
1125 CONTINUE 
C 

C WRITE OUT THE tank BOTTOM PRESSURES 

c 

GO TO <1130. 1150. 113o).SYSNUM 
1130 WHIT? <6.830) 

WHIT? <6.835)<ST(N).N«1.7) 

WRITE, < 6 »1 135) NOP 


ST AH1224 
STAR1225 
STAR1226 
STaH 1227 
ENGINE ST AR122B 
ST AR1229 
STAR1230 
ST AR12 3l 
STAR1232 
ST AR1233 
STAH1234 
ST4H1235 
STAH1236 
ST AR1237 
ST AR1238 
ST AH12 39 
. ... STAR1240 

STAR1241 
ST AR1P42 
STAR1243 
STAR12M 
STAR1245 
STAR1246 
STAR1247 
STAR1248 
STAR! 249 
STAR1250 
ST AR1251 
STAR1252 
STAR1253 
STAR1254 
STAR1255 
STAH1256 
STAR1257 
STAR1258 


1135 FORMAT! 1H0.T20. 'TANK BOTTOM PRESSURE VALUES FOR', 13.' ENGINE 0PERASTAH1259 


IT l ON PER Main r EED LINE') STAR1260 

WRITE !6.845)(3PCIM).K»1ElP»NMA) STAR1261 

WHITE <6.850) ST 4R1262 

00 1145 N« 1 , NPTS ST AR1 263 

WRITE < 6 . 835 )T IMEAlN ) STAR1264 

IF (N.EQ.NFTS) GO TO 1140 STAR1265 

WHITE <6.10l5)(PTKdTo<l»N),I«NELP,NMA) STAR1266 

1140 CONTINUE STAR1267 
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1268, 

1145 

CONTINUE 

STAR1258 

1269 , 

1150 

continue 

ST»R1269 

12 / 0 , 


IK (SVS.MU!4,E3,1 > CO TO 1163 

ST AR12 70 

12 / 1 , 


WHITE 16.630) 

STAR12/1 

1272, 


WRITE <6,8B0)<ST(N),N«1»7) 

STiR’272 

12/3, 


WHITE <6,U35)n0P 

STAR1273 

12/4, 


WHITE I6i845)(hPD(K).K«N£lPiNM*) 

STAR1274 

12/5, 


WHITE <6.850) 

STAR1275 

12 / 6 , 


DO 1160 N»i,NPTS 

STAR1276 

12/7, 


WHITE < 61 855 ) T IMEAlNl 

ST AR 12 77 

12 / 8 , 


IK (N.EO.NSTS) CO TO ll5S 

STAR1278 

. 1279. 


WRITE <6.1013)(PTK3Th< I.N), t«NEL p .NM*) 

ST AH1279 

1260. 

1155 

CONTINUE 

.. .. STAR128Q 

1261 , 

1160 

CONTINUE 

STAR1281 

12 « 2 , 

1165 

CONTINUE 

STAR1282 

1283. 

C 


STAH1283 

1284, 

C 

WRITE OUT RECOMPUTED ENGINE PRESSURES 

STAR1284 

1285, 

C 


ST AR1286 

1286. 


CO TO <1170. 1190, 1170). SYSN0H 

STAR1286 

1287, 

1170 

WHITE <6.830) 

5TAR1287 

1268, 


WRITE <6i835><5T(N),N«1,7) 

STAR1288 

1269, 


WRITE <6,1175 JnOP 

STAR1289 

1290, 

1173 

F ORMaT < IRQ , T20 , ' RECOMPUTED ENGINE PRESSURES FOR', 13.' ENGINE OPERAST AR129Q 

1291, 


it i on per main feed line' ) 

STAR1291 

1292, 


WRITE <6,845!(0PD<KJ.K«NElP,NMA) 

ST AR1292 

1293, 


WHITE <6.850) 

ST AR12 73 

1294, 


00 1185 N«1,NPTS 

STAR1294 

1295, 


WRITE < 6 , 853 ) T IMEA(N) 

STAR1295 

1296, 


IF (N,EQ,N»TS> CO TO 1180 

STAH1296 

1297, 


WRITE <6.13l5 )(PENNUO< I.N). I»nELP.NMA) 

STAR1297 

129 S , 

1180 

CONTINUE 

STAR1298 

1299. 

1185 

CONTINUE 

STAR1299 

1300, 

1190 

CONTINUE 

STAR1300 

1301, 


IF (SrSNUM.EO.l) CO TO 1205 

STAR1301 

1302, 


WHITE <6. 830) 

STAR1302 

1303, 


WHITE <6i880)(5T<N).N*1.7) 

STAR1333 

1304, .. 


WRITE <6,11751 \OP 

STAH13T4 

1305 , 


WRITE <6,845)MPD«'<),K*NElP,NMA) 

ST AR1305 

1306, 


WHITE <6,850) 

STAR1316 

1307, 


DO 1200 ‘l»l,NPTS 

STAR1337 

1308, 


WHITE <6,855)TIMEA(N) 

STAR1308 

1309, 


IF (N,EG,N»TS) CO TO 1195 

STAR1339 

1310. . 


WRITE <6,1015)IPENNUH<I.N),I«nElP,NM*) . . .. 

ST AR1310 

1311. 

1195 

CONTINUE 

ST AH1311 

1312, 

1200 

CONTINUE 

STAR1312 

1313. 

1205 

CONTINUE 

STAH1313 

1314, 

C 


ST AR1314 

1315. 

c 

white out feed system weights • - 

- - ST AR1-315 

1316, 

c 


STAR1316 

1317, 


WRITE <6,830) 

STAR1317 

1318, 


“HITE <6,1210)(ST<I),I«l,7) 

STAR1318 

1319, 

1210 

F0RMAT<T23,7A6.T66,*- FEEo SYS t EM WE ! CRTS* , 7/T16, • MA I N' , 

T30, 'ENCINSTAR1319 

1320, 


lE FEEOLJNE WE1 GHTS'iT65i 'TOTau* ,T85, 'ENGINE' ,T97, 'MAIN' , 

7T14, 'FEEDSTAR1320 

1321. 


2UN£, ,T64, 'ENGINE MAIN FEEDLlNt FEEOLINE 

TOTAL’,/ ST AR1321 

1322, . 


3T2, 'PROPELLANT CJAMeTfR' ,T26, 'L INF' ,T36, 'UINE' ,T46, 'LINE' ,T56, STAR1322 

1323, 


4'LlNE'»T63, 'FEEOLINE FEECLlNE INSULATION INSULATION 

FEEO SYSTST AR1323 

1324, 


5EM' , / T14 1 ' ( INCHES ) ' 1 T26 1 ' t.O 1 « , T36 , * NO 2 ' , T 46 , • NOJ ' , T56 , 

'NO 41, ST AR1324 

— 1325, — 

— 

c t 63,'wE I GhT',T7« .'wEiChT ',T 85 ,'WE 1GHT-',T97,'WE I.GhT_!.i TllO 

, 'WEIGHT' 1ST 4.R1325 
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13*6 , 

1327, 

1328 , 

1329, 
*330. 

1331. 

1332. 

1333. 

1334. 
*335. 
*3 56 , 
•• 337 , 
1.338. 

1339. 

1340. 

1341. 

1342. 

1343. 
1344 , 

1345, 

1346, 

1347, 
*34 3. 
1349, 


WHITE <6*665! ST4R132S 

IF (SYSNUM.Ea.2) GO TO 1220 ST4R1327 

00 121& I ■ 4ELP . NS I ZE ST4R1328 

WRITE (6tl230)02 (l)i 02 (2) ,OPOt 1 1 1 (WELO^ 1 1 J > i J*1 1 4 ) , WELOT ( t ) iWMLQl IST4R1329 
1 > # W£u J0T( I ) , WM„10( 1 I.WLOTTI I > ST1R1330 

1215 CONTINUE ST tRl 33i 

white (6,665) ST4R1332 

1220 00 1225 l«\IELP,NS!ZE ST4R1353 

WHITE (6i1230)h2«Hiw2(2).hPO(I )#(WEUH(I)J>»J»li4>,WELHT(I).WMLH( IST4R1334 

1 > , WEL I HTI I > , WM» JH( 1 ) « hLHTTI I ) ST4R1335 

1225 CONTINUE ST4H1336 

1230 FuR,'UT(T2.24 6,c7,3,2x#6Gi0.5i3*)G10|5,2X,G10,5,3x,G10,5) ST4R1337 

WHITE (6.665) ST 4R133P 

WHITE ( 6 i 1235 ) I C4SE ST4R1339 

1235 FORM4T(T10,'EN3 OF CaSEMJ) ST4R1340 

C ST4R1341 

IF (IGOON.EQ.l) CO TO 10 ST4R1342 

C ST4R1343 

CONTINUE ST AR1344 

WHITE (6)830) ST1R1345 

WHITE ‘6H245) 5T»R1346 

1245 F0RN4T(T5, )••• NORMAL PROGRAM TERMINATION HAS OCCURRED •••') ST4R1347 

CALL E x lT ST4R1346 

E,\0 ST4R1349 
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1. 

C 






INIVOOOl 

2, 


SUBROUTINE 

INIVOL 



INIV3032 

3. 

C 






INIV0003 

4. 


INCLUDE 01HN..JST 



INIV0D04 

5. 

c 






INIV0005 

6. 

c 



C4LCUL4TE T0T4L VOLUME 



INIVOC06 

7. 

c 



L02 SECTION 



INIV00Q7 

8. 

c 



VOLUME OF UPPER < SMALL) HEMISPHERE SECTION 


INIV0008 

«. 


VI • 

HSPHER 

(R1.A2) 



IMV3C09 

10. 


41 * 

4RSPHR 

( R 1 1 R2 ) 



IN1V0OVO 

U. 

c 



VOLUME CF CONIC SECTION 



I N 1 V 3 0 1 1 

12. 


V2 « 

frcons 

<R2,L2'L1,R4) 



INIV0012 

13. 


42 « 

A«EAFR 

(R2.L2-Ll.R4) 



INIV0013 

14. 

c 



VOLUME OF CYlIN0RIC*L SECTION 



I N I V0014 

15. 


V3 « 

C7LNDR 

<R4,L3*L2) 



I N I vOD 15 

16. 


43 ■ 

aracyl 

(R4.L3-L2) 



INIV0016 

17. 

c 



VOLUME OF LOWER (LARGE) HEMI SPHER I C4L 

SECTION 

CLC21 

IMV3017 

18, 


V4 « 

HSPHER 

(R3.H4) 



IMV3C18 

19. 


44 « 

4HSPHR 

(R3,R4) 



l N I V0019 

20 , 

c 



LH2 SECTION 

- .. 


INIV0020 

21. 

c 



VOLUME BETWEEN CYLINDER AND SPHEROID 



INIV0021 

22. 


V5 « 

CTLSPH 

(R3.R4) 



1NIV0022 

23. 

c 



VOLUME OF LONG CYLINDRICAL SECTION 



IMV3023 

24. 


V6 « 

ctlndr 

(R4.L4-L3-R3J 



INIV0024 

25. 


46 « 

a^acyl 

(R4.L4-L3) 



I N I v 0025 

26, 

c 



VOLUME CF LOWER ILaRCE) HEMISPHERICAL 

SECTION 

(LH2) 

1 N I V 3 0 2 6 

27, 


V7 « 

HSPBE4 

IR5.K4) 



IN1V0027 

28. 


47 « 

4«SPHR 

(R5.R4 ) 



INIV0028 

29. 

c 



TOTAL VOLUME OF UPPER PCRT l ON (L02) 



INIV0O29 

30. 


VT02 

■ Vl*V2*V3*V4 



INIVG030 

31. 

c 



TOTAL VOLUME OF lCWER PCRTJON ( LH? ) 



INIV0C31 

32. 


VTH2 

• V5 ♦ 

V6 ♦ V7 



INIV0332 

33. 

c 



total VOLUME BOTH SECTIONS 



I N I V 0 0 3 3 

34, 


VTOT 

■ VT02*VH2 



INIV3034 

35. 


4T0T 

■ Al ♦ 

A2 ♦ A3 ♦ a4 ♦ A6 * A 7 



IMV30J5 

36. 


ask In 

1 • 4T0T - 44 



IN1V0036 

37, 


4U0.1E 

« 44 




INIV3037 

38. 


RETURN 




INIV3038 

39. 


END 





INIV3039 


Fig. B-2 INIVOL Program Listing 
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1. 

C 



2. 



Subroutine ullhed ivlo2.vlh2> 

3, 

c 



4. 



INCLUDE DtMN,:_lST 

5, 



INCLUQE uconst.list 

6. 

c 



7. 


10 

format { '0'20X'ULLAGE VOLUME iS NEGATIVE'/) 

8. . 

c 



9, 

c 


CALCULATE HEaO ano ullage volume 

10. 

c 


ULLAGE VOLUME ( l c 2 ) 

u. 



UVL02 • VT021V.02 

12. 



IF (UVL02 . LT , 0 , ) WRITE IIOT.IO) 

13. 

c 


CALCULATE HEaO (lC2> 

14. 

c 


LARGE HEMISPHERE 

15. 



IF (VL02-V4) 15i 20 1 2o 

16. 


15 

CALL EL)PSG (Vl02.R3.R4.H0O2) 

17. 



GO TO 45 

18. 

c 


CYLINDRICAL SECTjCn 

1«. 


20 

IF ( VL02“< V4*V3 ) ) 25 , 25 1 3q 

20. 


25 

H0O2 « r 3 ♦ <Vw02-V4) / jpi»R 4 »R4) . ... ..... 

21. 



GO TO 45 

22. 

c 


conic section 

23, 


30 

IF <VL°2-< V4*V3*V2)J 35.35.40 

24, 


35 

HL • LZ " Ll 

25, 



R42 * H4 . R2 

26, 



VO « ( p l73.0)*WL / R42*R4*R4 *r4 - (V102-V4-V3) 

27, 



HD02 « (PI.R4.HL - <3,04tPI»WL>» # 2.R«2»VO>«.(l./3, 1 

28, 



HO02 » R3 ♦ L3 * L2 ♦ H002 

29, 



GO TO 45 

30, 

c 


SMALL HEMISPHERE 

31, 


40 

call eljpsg IUvL02.Ri.r2.h> 

32, 



HD02 « R3 ♦ L3-L1 ♦ Pl-H .. . . 

33, 

c 


ULLAGE volume (lH2) 

34, 


43 

UVLH2 » VT H2 - VLH2 

35, 



IF (IJVLH2.LT.0. ) WRITE « IOT»10> 

36, 

c 


calculate head (LH2) 

37, 

c 


LOWER HEMISPHERICAL SECTION 

38, 



IF (VL*2-V7i 53(55.55 

39, 


50 

CALL ELJPSG (VuH2,R5,R4iHdh2) 

40, 



GO TO 70 

4 1, 


55 

IF (VLH2-I974V6) ) 50,60(65 

42, 

c 


CYLINDRICAL SECTION 

43, 


60 

HOH2 « R5 ♦ (VLH2 - V7> / (PJ.R4«R4) 

44, 



GO TO 7q ...... ... 

45 , 

c 


SECTION BETWEEN CYLINDER *NO SPHEROID 

46, 


65 

VHP ■ V(.H2 - <V7*V6) 

47, 



CALL CTMSPh (VRP.R3.R4.HJ 

48, 



HQH2 « R5 ♦ L4 • (L3.R3) 4 . H 

49 , 


70 

CONTINUE 

50. _ 



RETURN 

51. 



END 


Fig. B-3 ULLHED Program Listing 
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ULLH5011 

ULLH0002 

JLLH0003 

ULLHOC04 

UULHD005 

ULLH0006 

ULLH0007 

ULLH300B 

ULLH0009 
ULLH3010 
ULLH30U 
ULLH0012 
ULLH3013 
.. ULLH0014 
ULLH0015 
ULLH0016 
ULLH0017 
ULLH001B 
ULLH3019 
ULLH0020 
ULLH0021 
ULLH0022 
UULH3023 
ULLH1024 
ULLH3025 
ULLH0026 
!) ULLH3027 
ULLH302B 
ULLh3029 
ULLH0030 
ULLH3031 
ULLH0032 
ULLH3033 
ULLH0034 
ULLH30J5 
ULLH30 36 
ULLH3C37 
_ ULLH3038 
ULLH3039 
ULLH0040 
UU.N3041 
ULLH0042 
ULLH3043 

ULLH3044 

ULLH3045 

ULLH0046 

ULLH0047 

ULLH3048 

ULLH3049 

ULLH0050 

UULH3051 



IMSC-A991396 


1, SUBROUTINE FLORES( 10,0.S1,S2,rES) ruoROC'Tl 

2, C FlOROOO.? 

3, c this subroutine computes only The flow hesistancf coefficients ^lohooo.* 


4. 

C 


DUE TO CONFIGURATION - FRICTION LOSSES AKE COMPUTED IN MaIn PRCGRAFLGR3C34 

5. 



PI*3, 1415927 

rumnoos 

6. 



0*57.29578 

FLOR 3 CO 6 

7. 



P*0/i2 » 

FL0R3C37 

8, 



GO TO <1Q,15,20i40«45i60i65»85i100, 

11 0,115,125.135, 140, 145, 150i145FL OR 3 03 8 

9. 


1. 155, 135, 160. 165, 135, 145 », 10 

FLOR3039 

10. 

C 


SUMP 

FLOR3G10 

11. 


10 

HES*o.l57 

FLCROOll 

12. 



•RETURN 

FLOR3012 

13. 

c 


straight line section 

FLOR3013 

14, 


15 

RES = 0, . .... 

. . .. FL0R3014 

15. 



RETURN 

FLOR3015 

16, , 

c 


CURVED LINE SECTION 

FLOR3016 

17. 


20 

THE T A* 1 S1/S2 ) *C 

FLOR3C17 

18. 



TEST=THETA-90. 

FLOR3018 

19. 



RES9o*0 , 158* <S2/P)**( -0,84 08) 

FLOR3019 

20. 



IF U0S<T£ST),GT.1.) GO To 25 

FL0R302Q 

21. 



HES*RES90 

FLOR3021 

22, 



RETURN 

FL0R.3Q22 

Z3, 


25 

IF (TEST.LT.O.) CO TO 30 

RLOR3C23 

24. 



RES*0,145*RES90*THETa**0,431 

FLOR3024 

25. 



RETURN 

FLOR3025 

26, 


30 

IF I THEtA.lT. 60, ) GO TO 35 

FLOR30 7 6 

27, 



RES*RtS90«0,0147*THETA**0.6l6 

FLOR3027 

2rt, 



RETURN 

FLOR3028 

29, 


35 

HES=ReS9O*o,0O47«THETA**0.793 

FLOR 30 29 

50. 



return 

FLOK30 50 

31, 

c 


compound ’J' Elbow Ilenght Straight 

SECTION LT 8*D > FLOR30M 

32, 


40 

SL=Sl- a I*S2 

FL0R3D32 

33. 



RES=0,2l53*(S2/P) **1-0.8406) 

FLOR 30 33 

34, 



RES =RES+ 0 , 02*1 5L/P ) 

FlOROO 34 

35, 



return 

F LOR 30 55 

36, 

c 


ninety-degree offset bend 

FLOR 30 36 

37. 


45 

SL=Sl-Pj*S2 

FLOR 30 37 

38. .. 



RESLDO’O, 248* (S2/P )•*(-!, 307 >. 

FLOH30 38 

39, 



RES L O6 s 0,322*<S2/P)**< -1,025) 

FlOROO 39 

40. 


50 

bloo=sl/p 

FLOR0040 

41. 



IF IBLOD.lt, 8. ) GO TO 55 

FL0R3041 

42, 



RES*RESlD8 

FL0R3042 

43. 



return 

FLOR3043 

44. . 


55 

OIF = RES L ne-RESLDQ 

FL0R3044 

45, 



DIFL=&L0D/8, 

FLOR 30 45 

46, 



RESsreSlD0*01F*01FL 

FLOROO 46 

47, 



RETURN 

FLOR3047 

48. 

c 


•Z'-BENo 

FL0RD048 

49. 


60 

SL=Sl-Rl»S2 

FLOR3049 

50. 



R£SLD0 s 0 |48*(S2/P)**<- 1,128) . 

FL0R3050 

51, 



RESLO8 s 0,332*(S2/P)**( -1.022) 

FL0R0051 

52, 



GO TO 50 

FL0R0052 

53. 

c 


GRADUAL EXPANSION 

FL0R0053 




_ . . _ - ------ 

— - ■ 


Fig. B-4 FLORES Program Listing 
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*4, 


65 

NE5s(i,,S2*#2, >»«2, 

FLOR:054 

S>5, 



0*0/12, 

FLOR0055 

*6, 



ARG=p*<i,/S2=l. }/<2,*Sl> 

FLOROOS6 

*7, 



TH£Ta#C#ATAN<ARG) 

FLOR3057 

t>a. 



JK < THt TA , ST • 5 . ) CO TO 70 

FLOROO50 

bV, 



CK*0,Q13*THETA 

FLOR0059 

60. 



CO TO «0 - - 

FL0R0060 

61. 


70 

IK (THfcT4.GT.24,) GO TO 75 

FLOR0061 

62. 



CKso.q65+Q,0513*<THEtA*5,) 

FL0RT062 

63. 



CO TO *0 

FLOR0063 

64. 


75 

CK*1,Q4 

FLOR3064 

65. 


80 

HfcS«CK*RES 

FLOR3065 

66. 



RETURN 

FLOR3066 

67. 

C 


gradual CONTRACTION 

FLOR3067 

68, 


65 

ARG=D»<1i"1,/S2)/(24.»S1) 

FL0R0068 

69, 



theta*c*atan<arg> 

FLOR0069 

70. 



IF (THETA, GT. 15, ) GO TO 9o 

FLOH007Q 

71. 



RES=o, 

FLOROO?! 

72. 



RETURN - - - 

FLOR3072 

73. 


90 

IF (THETA, GT. 22, 5) Go TO 95 

FLOROO 73 

74. 



HES*0,05 

FL0R3074 

75, 



return . 

FLOR0075 

76. 


95 

RES*( 1 . «S2»*2, )««2, 

FLOR3076 

77. 



return 

FLOH3077 

78. 

c 


SINGLE lec OF DIVERGING branch 

FL0KD078 

79. 


100 

write (6,105) 

FLOROO 79 

60. 


105 

FORMAT < T2 , ' S/R FLORES » OIVERqINC BRANCH OPTION NOT IMPLEMENTED < ) 

FLOROO TO 

«1. 



RES*0 . 

FLOROOTl 

62 . 



RETURN 

FLOROOT2 

63. 

c 


VENTURI 

FLOROO 33 

84. 


110 

Sl = Sl/2, - 

F LOR 3 03 4 

«5. 



GO TO 65 

FLOR0035 

66, 

c 


flowmeter 

FLOROO Tft 

67. 


115 

WHITE < 6 1 120 ) 

floroot/ 

U8, 


120 

FURMaT<T2, 'S/R FLORES - FLOWMETER OPTION NOT IMPLEMENTED') 

FLOROOH8 

89, 



RES*o. 

FLOR0039 

90. 



RETURN 

FLOR3090 

91. 

c 


GATE VALVE 

FLOROO 91 

92. 


125 

WHITE <6,130) 

FL0R3092 

93. 


130 

FORMAT<T2, 'S/R FLORES * GaTE VALVE OPTION NOT IMPLEMENTED') 

FLOR0093 

94, 



RESso, 

FLOROO’94 

95, 



RETURN 

FLOR0095 

96. 

c 


butterfly valve or pressure-volume compensator 

FLOR0096 

97. 


135 

RES*o, 94*D»*<-0, 676) 

FLOR3097 

98. 



RETURN 

FLOR3098 

99. 

c 


poppet valve 

FLOR0099 

100. 


140 

RESs4,9«0«*(t.o,599) 

FLOROno 

101, 



return ! 

F LOR 31 01 

102. 

c 


ball VISOR VALVE, U-PIN Tie ROD BELLOWS OR INTERNAL ball-strut BELFLON0102 

103. 


145 

RESso, 325 *d**(-0, 292) 

FL0R3133 

104, 



return 

FLOR0134 

105,- 

c 


OISCONNECT 

FLOR0105 

106, 


150 

RESso, 3 

FLOR3106 

107, 



return 

FLOR0107 

108. 

c 


pin or hinge joint bellows or ext, gimbal bellows w/o liner 

FLOR0108 

109. 


155 

RESso, 23"0»*(-0,607) 

FL0R3109 

110, 



return . - 

FLOROllO 

111. 

c 


EXT, GlMBAL bellows with LINER 

FLOROlll 
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112, 160 RtS=O t 079»D**(-0,594) ^ LOR 31 12 

113, RETURN FL0R0113 

114, C INTERNAL GIM8AL BELLOWS W/O LI^ER FLOR3U4 

115, 165 RESso,lH#3#(eO|55) FLOROH5 

116, RETURN FLOR0116 

117, END FL0R3117 


Fig. B -4 FLORES Program Listing (Cont'd) 
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1, SUBROUTINE PVaPOR< T , I .P ) PVaPOOOI 

- 2, GOTO (10,15|20#15.25.30*35#30«35.40|20#45»50.S5,60|65)#I ■ ... PVAP0002 


3, 

10 

P=EXP< 12, 04*1519, /T) 

PVAP0003 

4. 


RETURN 

PVAP0004 

5, 

15 

P s 10,**<2, 9303^79, 821/T*.0ll628«T) .. 

D VAP0005 

6. 


return 

PVAP3006 

7. 

20 

P « EXP<11, 63-1374, /T ) 

PVAP0007 

K, 


IFCP.GT.200, > P * ExP(13.43«i763,/T) 

PVAPC008 

9. 


RETURN 

PVAP0009 

10. 

25 

P * ,»25*EXP<11, 63*1374, /T> + .175«EXPU2|Q4»1519,/T) 

PVAP0010 

11. 


I F< P , Gt , 200 • ) P ■ ,B25«ExP<13i43*1763|/T) + ,175*EXP(12. 04*1519, 

/T) P VAP0011 

12. 


RETURN 

PVAP3012 

13, 

30 

P * £XP(11, 83-1839, /T> 

PVAP0013 

14. 


RETURN 

PVAP0014 

15. 

35 

P s l<3,**<5, 73-1050. /T) 

PVAP3015 

16. 


RETURN 

pvap:oi6 

17. 

40 

P = £Xp<12, 3579-3168, 7/T) 

PVAP3017 

lo , 


RETURN 

PVAP3018 

19. 

45 

P * EXP(14,45*5090,/T) 

PVAP0019 

20, 


RETURN . 

PVAP0020 

21. 

50 

P * £Xp(i6, 54098*7, 3483* ( iOOO i /T > > 

PVAPT0?1 

22, 


RETURN 

PVAP0022 

23, 

55 

P = EXp(l3, 4055*6, 65«<1000*/T> > 

PVAP3023 

24. 


RETURN 

PVAP0024 

25, 

60 

PUOGRf' * 7,4837-1 ,8*u97, /T 

PVAP3025 

26 , 


P s ,0l934*<10,»*PLOGMM) 

PVAP0026 

27. 


return 

PVAP0027 

20, 

65 

PLOGM* « 8, 2875*1, 6*1996. /T 

PVAP0028 

29. 


P = ,Ol934*{10i*«PLOGMM) 

PVAP0C29 

30, 


RETURN 

P VAP0030 

31. 


ENQ 

PVAP3031 


Fig. B-5 PVAPOR Program Listing 
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1. 


SUBROUTINE ZFIND(T.P.N.V) 

ZF 

INOOOl 

2. 


0 1 MENS I ON G ( 3 , 17 ) . S( 17 ) 

ZF 

! N0002 

3. 


DIMENSION At 17, 6 ) , Tst l7 ) 

ZF 

IN0003 

4. 


DATA <tS<<),K«1,16> 

ZF 

1 N 00 0 4 

5. 

1 

/150 , , 30,. 140,, 30..l40,,19U,i220,,l90,, 

ZF 

IN0003 

6. 

2 

220, ,300. .140, ,370, ,475, ,4«0i .45 J, ,450,/ 

ZF 

IN0006 

7. 


DATA <G{1, I ), I *1,17 )/277, 85, 59, 8, 259, 13,59, 8, 260, ,343,2,387, ,343, 

2ZF 

I N 0 0 0 7 

a. 

1|J«7, .321,8 #259, 13. 730. i 776. 4, 10«4, ,74*. 5.1155,1 9, 37/ 

ZF 

I N 0 0 0 8 

V. 


D AT A I 2, 1 ), I *1, 17 )/743, 78, 187, 7,822.0,18 7,7,795,, 673.1,719,, 673 

,ZF 

IN0009 

10. 

1 

1,719. ,581, ,822,8,1652, ,14 70. ,1696, .771 , , 1470. ,33,82/ 

ZF 

INOOIO 

11. 


0ATA(G(3, J ), I = 1, 17 )/48, 31,766, 8. 40,67. 766, 8, 42, 01. 96, 35, 28, 62, 

ZF 

INOOll 

12. 

1 

96,35.28,62.55,81.40.67,90,77, 16, 7», 37 f 0*11,90, 33, 50, 386, 3/ 

ZF 

IN0C12 

13. 


DATA S/5HL02 ,5hLH2 .5hLF2 ,5HLH2 ,5hFLQX ,5HCH4 ,5hOF2 , 

ZF 

IN0013 

14. 

1 

5HCH4 ,5H0F2 ,5hP2H6 ,5HLF'2 »5HNH3 ,5HN204 .5HA-50 , 

ZF 

I N 0 0 1 4 

13. 

2 

5hcUF-5»5H v IHF-5, 5hhE / 

ZF 

I N 0 0 1 5 

16. 


OAT A ( A ( 1, J), J*1,6>/,2142592e1,-.3228322E-»1, .3563987E-3, 

ZF 

I N 001 6 

17. 

1 

*,1895669 = i-5, ,4823166Ff8,-,5o02793E-U/ 

ZF 

I N 0 0 1 7 

ia. 


UATA( A( 2, JI.J* 1,6) /-.4458459F1. ,6350^02, •’.2863016E-1, 

ZF 

I N 0 0 1 8 

19. 

1 

,6260532E-3,-.6704223E*5. .27&3409E-7/ 

ZF 

I N 00 19 

20. 


DATAt At 3. J), J*l,6)/,l920V203El,-,4596045t^l, .7505833E-3, 

ZF 

1 N 0 0 2 0 

21. 

1 

*,552^453E-5, ,19002l8E*7,-,2526448E"lO/ 

ZF 

IN0021 

22. 


DAT At A ( 4, JJ ,J» 1,6) /-.4458459E 1. . 6350202, ‘*,2B63nl6E*l, 

ZF 

IN0022 

23. 

1 

,626u532E-3,-.6704223F*5. ,2763409c- 7/ 

ZF 

I N 0 0 2 3 

2<. 


DATa< At 5, J), J« 1, 6 )/,l84766i2F.l,-, 41460086*1, .6702877E-3, 

ZF 

I N 0 0 2 4 

23. 

1 

*,4B95a55=-5, ,1674002E*7.-,2217407E"10/ 

ZF 

I N 0 0 2 5 

26. 


UATAtA( 6, J),J=1, 6)/. 17005803E1,-. 16690255*1, .1536145E-3, 

ZF 

IN0C26 

27. 

1 

-.669157 7E-6, .136 099 72E-B.-.H3578HE-11/ 

ZF 

I N 00 27 

2fi, 


DATAt A< 7, J) ,J*1, 6)/, i52t9822E2,-, 26012466, .22001021E-2, 

ZF 

! N 0 0 2 8 

29, 

1 

-.86119226E-5, ,16835339E-7.*.1326416E*10 / 

ZF 

! N 0 0 29 

30. 


U A T A l A ( 8, J),J*1, 6)/, 17005803E1.-, 16690255*1, .1536145E-3, 

ZF 

INOOIO 

31, 

1 

* , 66915775-6 , ,13609972E-8,-,U3578ilE’’U/ 

ZF 

INOOH 

32. 


DATAt A( 9, J),J*1, 6 >/, 152, 9022E2,-. 26 012466, , 2200102! E-2 , 

ZF 

I MOO 52 

33. 

1 

-.6611922SE-5. , 16835339E-7 , - . 132641*EnO / 

ZF 

IN0033 

34. 


DATAt A(10, J), J=l,6)/-,8l4498(j7E-l, ,156U4836E*l,-,91954274E-4, 

ZF 

INOO 54 

35. 

1 

, 27813987 i-6,- ,42 73969 8E -9, ,25l705l2E*12/ 

ZF 

I N 0 0 3 5 

36. 


DATAt A( ii, J), j»l,6>/, l92o9203El#-. 459&04 55*1, ,75D5833E*3, 

ZF 

I N 0 0 3 6 

37. 

1 

-.5522453E-5, . 190Q2i 8E*7 , - , 252644«E*l0/ 

ZF 

I N 0 0 J 7 

3 a , 


DATAt A(12, j), j*i,6)/,392333i8El,-.34565291E-l, .16306507E-3, 

ZF 

1 NOC 58 

39, 

1 

-, 38 4524 32 = -6, .455 72 795E-9,-, 21 9 79859^12/ 

ZF 

INOO 59 

40. 


DATAt A( 13, J),J* 1.6)/, 70122306E1,-. 5741309 7E-1, ,21967497E-3, 

ZF 

I N 3 0 4 0 

41, 

1 

42198 721E-6, ,401164 V88E-9,-. 161.16 V16E* 12/ 

ZF 

1 N 0 0 4 1 

42, 


DATA { A( 14, J), J*1, 6)/, 8640584 3E1,-, 721 7 616 IE *1,, 272423 IE-3, 

ZF 

1 N 0 0 4 2 

43, 

1 

”,5l3 7 409E-6, ,4P44750E*9,-.183O6O62t-12/ 

ZF 

IN0043 

44. 


UAlAt A (15, J), J*l,6)/,54 8sn8 3vEi,-,4«BU628/E*l. , 1 7789492E-3 , 

ZF 

I \ 0 0 4 4 

45, 

1 

-.35069558E-6, , 345397?6E-9 ,-. 130320161-12' 

ZF 

1 N 3 0 4 5 

46, 


DATAt A(16, J), J*l,6)/,494o7545El»-.396iyV5>E-l, ,l5955648E-3, 

ZF 

I N 3 0 4 6 

47, 

1 

-.321 1566 7E-6, ,32 356 7H6E-9,-, 130681565-12' 

ZF 

IN 00 4 7 

4a. 


IF (N.Eq.17) GO TO 10 

ZF 

IN 00 4 8 

49, 


IF tT.GT.650, .0R,T,LT,25, } GO TO 55 

ZF 

IN JC49 

30, 


IF <T,UT,TS(N>*100.,0R.T,LT.TS<N>) gc to u 

ZF 

IN0C5O 

31. 

C**«* 

TEST TO SEE IF SAT.O COMP.Y Z APPLIES 

ZF 

1 N 0 0 5 1 

52. 


CALL PVAPOR(T,N,TWYP) 

ZF 

I N 0 0 5 2 

33. 


TRY*T*YP-? .. .. . .. . 

ZF 

IN0OS3 
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54. 



IF (ABS(TRy>.LT.5. ) BO TO 60 . _ 

ZF1N0054 

55. 


10 

CONTINUE 

ZF1N3055 

£»6 . 

c* 

#♦*• 


**ZF I N0056 

57. 



VF*C(3,N)*T/{?*144| ) ._ . .. 

ZFIN0057 

56. 



IF ( N, £Q , 2 . OR < N. EQ . 4 ) GO TO 45 

ZFIN0058 

59. 



AS*.4278.G(3,N>«C(3,N>/(C<2,N)*144, >«0U,N>«»2,5 

ZFIN0O59 

-- 60. 



BSs,0«67*5(3 J N)*GU.N>/<G(2,N>»144 , } ... 

ZFIN.1060 

61, 



JN*0 

ZFIN3061 

62. 



N2«0 

ZFIN0062 

63. 



e«, ooooi _ : 

ZF1N0063 

64. 



V 8 VF 

ZF IN0064 

65. 


15 

Y«G(3»N)«T/(V-BS)-AS/<T**,9*V # (V40S) )»P«144, 

ZFINOO'65 

66, 



IF UBS(Y).lT.E) CO TO ?0 

7 F I N 0 0 6 6 

67. 

c« 



TZF IN3057 

68, 



YP*-G<3,N> 

ZFIN3063 

69, 


1 

*T/( <V^3S)»<V-BS) >4AS*{2,«V4BS)/(T*? i 5*V*V*( V+BS)«(V*BS> ) 

ZFIN0C69 

70. 



IN=in+i 

ZFJN0070 

71. 



N2«n2+1 

ZFIN0071 

72. 



IF ( N2 « EQ , 25 > E*2« *E 

ZFIN3072 

73, 



I F ( N2 • EO , 25 ) N2»0 

ZF I N30 73 

74. 



IF < IN. GT, 1000) GO TO 35 

Z F I N 3 0 7 4 

75. 



V=y-Y/YP 

7FIN3075 

76. 



IF (V.0T.0, > GO TO 25 

ZFIN0076 

77, 



0U>V°V*Y/YP 

ZFIN3Q77 

78, 



DELTA=Y/Y3 

7FIN3078 

79. 



FACTOR* .05 

Z F I N 0 0 7 9 

80, 


20 

V=0LD9rFACT0R.0ELTA 

ZF I N30 30 

81. 



FACT0ReFACT0So,9 

ZFIN3031 

62. 



IF ( V.UT.O, ) GO TO 20 

2 F I N 3 0 3 2 

63, 


25 

CONTINUE 

2 F I N 3 0 8 3 

84. 



CO TO 15 

ZF IN3084 

85, 


>0 

continue 

ZF IN3035 

66, 



GO TO 5o 

ZFJN3036 

87, 


?5 

continue 

ZFIN3037 

88, 



WRITE t6i40)T,?,S<N).V.VF 

ZFIN3038 

89, 


40 

FORMAT ( 1X.34HRE0LICH KwONG FLUNKED T * ,F4,2i2X,4HP » , 

ZF IN-3039 

90, 


1 

F7,g» 

ZFINOO’O 

91, 


2 

! 5H FOR ,a5,2X|4HV o , ElO , 5, 2X , 8HRETUHNEQ »E10 . 5 ) 

ZF IN3C91 

92. 



V»VF 

ZFIN3092 

93, 



GO TO 50 

Z F I N 3 0 9 3 

94, 


45 

TT ST*0 ,5 

Z r I N 3 0 9 4 

95. 



V=PT0ENS<p ,tt> 

ZFIN3095 

96, 



V=1 . /V 

ZFIN3096 

97, 


50 

V-V/VF 

ZFIN3097 

98, 



RETURN 

ZFIN3098 

99, 


55 

V = 1 , 2 / 

ZFIN3099 

100, 



RETURN 

ZFJN01O0 

: 101. 


60 

continue 

ZFIN0101 

102. 



V=A<N»l>4A(N,2)«T*A(N.3)»T«T4A<N,4)*T*T«T?A(N,5>*Tt»4+A(N,6>*T**5ZFlNOl02 

: 103, 



RETURN 

ZFIN3103 

104, 



ENO 

ZFINQ1Q4 
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FUNCTION FINDR(N) 

DIMENSION Gi 17 > . . .. 

DATA C / 48. 31,766, 8*40,67,766,8, 42, 01, *6, 35.28, 62, 96, 35,28 
1&5, 81 , 4o, 67, 90.77, 16, 78. 37, 0,11, 90,33,9U,3tJ6,3/ 

FINDR«G(N) 

RETURN 

END 


FIMD0031 
FIND1002 
62, F I MO "003 
F I VJD3C04 
F 1 MO 0 0 T 5 
FIV00D06 
FINU0007 
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1. 

2 . 

3 . 

4. 

5 . 

6 . 

7. 

8 . 
9, 

10 . 

11 . 

12 . 

13, 

14. 

15 , 

16 . 

17 . 

18 . 

19 . 

20 . 
21 . 
22 . 

23 . 

24. 

25 . 

26 . 

27 . 

28 , 

29 . 

30 . 

31 . 

32 . 

33 . 

34 . 

35 . 

36 . 

37. 
36 . 

39 . 

40 . 

41 . 

42 . 
* 3 . 

4 4 . 

45 . 

46 . 

47 . 

48. 

49 . 

50. 

51 . 

52 . 

53 . 


FUNCTION PTDENS(PRcS,T£MP> PTDEOOOl 

DIMENSION ?S(20>iTS(20)iJP(28)»MX(28>#LOC(30)iBP<28>«DP(28),BT(30)PT0fc0O02 
1 #DT ( 28 > * R( 886 ) PTOE0003 

DIMENSION AA( 109 > * AB( 97),AC<108>iAD<106>,AE(106).4F<108),AG(101> PT3E0004 

L . AM M 1 1 1 i A f t At) 
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54, 535,2.857,1,639,2.15,2,508,1 ,453, 1,924, 2, 319,5,033, 5, 112, 5, 183, 4, 81PTDE0054 

55, 66. 4 , 91 1 4. 9 94, 4 . 558, 4. 676, 4 , 764 I 4. 248, 4, 405, 4, 533, 3. 88, 4, 094, 4, 246, ?ne 3055 

56, 73, 442, 3, 743, 3. 958, 2 ,953, 3. 361, 3, 633, 2 ,481, 2, 975, 3, 307, 2, 093, 2, 6 16, PTOfc -1056 

57, 83, 002. 1,804, 2, 309, 2, 698, 1,588, 2, 059, 2, 462, 1,423, 1,856, 2, 226, 1, 293, PT3t 3057 

58, 91,691,2.056,1,187,1,555,1.886,1,1,1,441,1, /54, 1,026, 1,344, 1,639/ PT3E3058 

59, DAT AA07, 9627, 1,262 ,1.546, . 9076 • 1. 1«9, 1 , 453. 4 , 742, 4 , 853 , 4 , 946 , 5, 031PT3E3059 

60, - 1, 4, 43, 4, 584, 4, 709, 4, 8 16, 4. 024, 4 ,279, 4, 417, 4, 558, 3, 165, 3, 778, 4, 05, 4PT3E30 a 0 

61, 2, 248, 1,43, 2, 988, 3, 595, 3, 88,*, 0233,, 5581, 1,189, 1,804, -,015, , 503, 1 , OPTlt 30M 

62, 35, 1,588, -,0099,, 4591, ,945 , 1 , 423 (10*5* , 4231 ,, R6i8 , 1 , 293 0042 ,, 3PT3E3062 

63, 4928, ,7V<3, 1,18 7, -,0025, ,3669, , 7379 , 1 , 1 0J15, . 3445 ,, 6898 , l , 026 PT 3k 0063 

64, 50007, ,3249, ,6483,, 9627.*, 0001, ,3075, , 612 , , '* 0 76 , - , 07704 ,, 02568 , , 130PT0E 3044 

65, 67, ,2384,-,06786, ,02262. ,114 4, ,207 9,-,,06066« ,U2022, , 1018 , , 1844 05PT0E 3065 

66, 748 4, .01828, ,09179, ,1659,-. 050 0<» .01668, ,0836, , 1508 04 602 . , 01534 , PTOE 3066 

67, 8,07677, , 1383, 3, 887, 3. 986, 4 , 105, 3. 447, 3 i 646, 3, 792, 2, 9i, 3, 226, 3, 442, PlOE 3067 

68, 92,323,2,76,3, 051, 1,857,2, 317,2,67, 1,949, 1.963,2,326,1,34,1.701/ PT 3k 3068 

69, DAT A AE/'2, 035, 1.189, 1,497, i,B04» ,7859,1,309.1.857. ,6864, 1,106, 1.549PT3E 3049 

70, 1 i, 6141, ,9689,1.34, ,5581, , 8735 , 1 , 189 ,, 1675, , 3524 , , 5577 , , 7859 , , 153 ,, PTOE 10 7c 

71, 23178, ,4955, ,6864, ,1409, ,2902, .4479, ,6i4l, ,1307, , 2674 ,, 4127 ,, 5581 , -PTofc 3071 

72, — ■ 3,03228, ,03224. ,09858, ,1675. ",02974, ,02971 m 09043, ,153, -.02756, .027PTOE3072 

73, 454, ,08359, ,1409 , -.02568 i ,02568, , 07819 ,, 1 Jo > , 1 ,226 , 1 , B07, 2 , 329 , 2 , 67PT3E 3073 

74, 54, 2, 91, 1, 052, 1, 481, 1. 941, 2 , 326, 2 • 616, ,9378, 1,279, 1,656, 2, 01 9,2. 323PT0E 30 7 4 

75, 6, , 8526* 1,141, 1.456, 1,774, 2. 089 » .7859,1,047.1,309,1.583,1,857, .0997PT0E 3075 

76, 75, ,2084, ,3279, ,4 61, ,6115, , 784 7 t « 9864 # 1 , 226 , , 09*78 , , 1962, , 3063 , , 426 n T0E 0076 

77, 84, ,5585, , 7052. .8693,1,052, ,08981, .1855, ,28 78, ,3977, ,5164, ,6451, , 7BPT-)k 3077 

78, 95i, ,93»8, .3B59, ,176, .2717, ,37J«, .4817, ,5972, ,7207, ,8526, ,09199/ PT3E3078 

79, DaTAaF/,1675, , 2599 ,, 3524 455 , ,5577, , 6 7 18 , , 7859 ,-. 01936 , , 01932 > , 05PT OE 3079 

80, 1888, .09975, -.01756, ,01753, ,05323* , 08981 J1615 , , 0161 1 , , 04982 , , 081PT3E 0080 

«1. 299, 3, 304, 3. 422, 3 , 541, 3 . 659, 3, 7 77, 3. 044, 3 , 2 V, 3, 4 5, 3, 572, 3, 68 7, 2, 74, PTDE 3091 

82, 33, 102, 3 ,304, 3, 4 49, 3, 557, 2. 322, 2, «8, 3, 14 1.3, 315, 3, 44 7, l, 861, 2,621, 2PT3E30 92 

«3. 4, 959, 3. 17, 3, 3l 3, 1, 55i, 2, 329, 2. 76, 3, 014, 3, 179, 1.358, 2, 045, 2. 516, 2, 8PT0E 30 93 

«4, 548, 3, 04 4, 1, 226, 1, 807, 2. 329, 2, 674, 2, 91 ,,6293, 2, 42, 2, 726, 2, 849, 2, 93 7PTDE 0094 

85, 6, 3, 005» 3, 061,3. 11, 3, 153, 3. 191,3,227, 3, 25V M 9338, 1,076, 1,265,1, 599, PT3E3C95 

86, 72, 202, 2,506, 2. 659, 2 ,768,2.85, 2,918, 2.976, 3, 026, ,8297, , 9234 , 1 , 03 , 1 , PT Dfc 3086 

87, 8159 ,1,322, 1,542# 1,035. 2, 136, 2, 356, 2, 509,2.618, 2, 709, ,759, ,0323, , 9 l p T3E 30 9 7 

88, 921,1.001,1,103,1,22.1,359,1,523,1,713,1,916,2,106.2,267, ,7053/ PT3E3Q5B 

89, OAT A At,/, 767, , 8 326 , , 9 0 39 , , 9807 , 1 , 066 , 1 , 16 , 1 , 265 , 1 , 383 , 1 , 51 3 , 1 , 655 r 1PT 3E 3C 9 9 

90, . 1,803, ,6621, ,7161, ,7728. ,8331, .8976, ,9656, 1,04, 1,12, 1,206,1, 299, l.APTabOC’O 

91, 2,1.507, ,6259, .6745, ,725, ,778 ,. 3337 ,, 6927, , 9537, 1 , Ql9, 1 , 089 , 1 , 163, 1PT'3E30?1 

92, 3, 242, 1,325,, 5941,, 64l2,, 6883,. 7355, ,7826, ,J372, , 8921 , , 9469 , 1 , 005, 1PT3E 0092 

93, 4,07,1.135, 1,2, -,000743. ,04849, ,09854,0, ,0, ,#,000787 ,,04023, , 08466 , Pf)E 1093 

94, 5,1315, , 1915, *-,000437, ,03393,, 0 7032, ,10?7, ,1534, #,000257, ,02941, , 06pT3E3054 

95, 6 027, ,09278, ,1275, #,000177 , ,02599, ,0528V, ,0 »08, , 1098, -, 000122, , 0233PTOE0075 

96, 7, ,0472 » ,07177, .09714, -8, 3E-5, .02112, 1 0 4 266. ,06465, ,0«7l9, -6, 5E-5, ,PTOE 0096 

97, 801932, ,0381, ,05868, ,07931,0, , .01172, , 02363 1 », OOOlll , , 009736 0198 , PT Ok 3097 

98, 9-5, 9E-S, ,008154, ,01648,*3.6E-5i , 007021 • , 01414 , -2 , 4E-5 , ,006166/ PT 3k 0098 

99, 0ATAAM',0124,#1,5E#5. ,005498, .01104, -1.1E-5, , 004962,, 009954, -9, E-6PT3E 0079 

100, 1, ,004521, ,0090 53,-7, E -6, ,004153 ,,008321, -2, 2E#5, ,003846, ,007715, ,1?T3E3100 

101, 2664", ,‘24 8 .0 . , 0 , , 0 7>0 i,“, 1469, ,2418* i3397«0, ,1, , 0. , ,13151 ,2117 , , 3091 , ?T3t3l0i 

102, ... 3,4233, ,5318,0., ,1195, ,189 1# ,26«4m3626i ,4811m 6H5, ,1098, .1717, ,24 = T3k0n2 

103, 4, ,3166, ,4 051,. 5124 Ml 01 7, .157 8, ,21«3, ,2841, ,3568, ,, 4 38 7 ,,094 86,, 146PTDE 0103 

104, 53, , 2009 , ,2592, ,322,, 3903, .08892, ,1377, ,1865, ,2407. ,295, ,3565, , 57 12PT3E 0104 

105, 6, ,727, ,9725,0., 0,,0,, ,5124. , 6559 ,, 8514 , 1 , 116 , 0 0 , m 4 755, , 5827 ,, 73?T3E0105 

106, 729, ,9604,1.252,1,718, ,4 387, ,5333, , 64 77 1 , 7994 , 1 , 068 , 1 , 534 , , 4145 ,, 49PTOE0106 

107, 856, ,5914, ,706, .8535,1,082, ,3903,, 4 653, ,5491 ,,6447, , 7575, , 8985 , , 373PT0E 0107 

103, 94 m 4399 ,,5151. .5986, ,6928m 802 < , 3565 », 4181 ,, 4898 ,, 5616 ,, 6487/ PTOE0108 

109, OATAA 17, 7358, .08892, ,1865, ,295# , 4 161# ,5616, ,7358, ,08373, , 1743, .273PTOE01 09 

ITCr 11, 738221, 5044, .64 39 f.079311 1164 9, 725621 ,354 5, V46i» ,5Bl 4, -1 , 32E-5 PTOE 0110 

111, 20373. ,07436 ,, 111,-2, 97E#5, , 0337 , , 06734 1 , 1007 , -5 , 14E-5, , 03051 , , 0612PT0E 3111 
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112, 

32, . 091 75,-. 0001453. ,0001042# .0003599, 000124,8, 541E-5, 

, 0003076, -9PT3t11t2 

113, 

4,95t-5#6,7l4E-5# ,0002542,0,/ 

PTOE0113 

114, 

P»PRf:S 

P T OF, 0114 

11&, 

1FIP.LT, 1,0) Rsl.O 

PTOE 01 15 

116, 

T«TfcMH 

PT OF 01 16 

117, 

IF Cr.LT, 180,0) GO TO 45 

PTOF0117 

118, 

IF (T,GE, 1300.0) GO TO 25 

p T0E 01 18 

119. 

IF (T,Ge, 480.0) GO TO 15 

PTOE0119 

120, 

IF (P.GE.800.) GO TO 10 

PTOE0120 

121. 

N* 1 

PTOF0121 

122, 

GO TO 155 

PTOE0122 

123, 

10 Ns2 

PTOF0123 

124, 

GO TO 155 

PT0E0124 

125, 

15 IF IP, Ge, 300,0) GO TO 20 

P T0L0125 

126, 

N = 3 

PTOE0126 

127, 

GO TO 155 

PT0E0127 

128, 

20 N*4 

PT 0E0128 

129, 

GO TO 155 

°Tot0l29 

130. 

25 IF (T.Ge, 2500,0) GO TO 35 

PTOtOl 50 

131. 

IF CP.GE, 100,0) GO TO 30 

PTOE 01 51 

132. 

Na5 

PTOEOl 32 

133, 

GO TO 155 

P T 0 1 0 1 ,5 3 

134. 

30 N = 6 

PTOEOl 54 

135. 

GO TO 155 

PTOE0135 

13*. 

35 IF<T, GE, 6000, 0) T«3999. 99999 

PTOE0156 

137, 

IF IP, Ge, 10,0) GO TO 40 

PTOE 01 57 

138, 

N = 7 

PTOEOl 58 

139. 

Nl = 30 

PTOE0139 

140. 

GO TO 155 

p T oe oi 4 o 

141, 

40 N = 8 

PTOE0141 

142. 

Nl = 29 

PTOEOl 42 

143. 

GO TO 155 

p TOL 01 43 

144, 

45 TZ=24,»4+0,00317*P 

PT">E 01 4 4 

145, 

ifit.lt, TZ) t«tz 

PTOE 01 45 

146, 

IF ( P , LT ,881,76) GO TO 60 

PT0E0146 

147, 

IF (P. LT, 2645. 28) GO TO 50 

PTOE0147 

148, 

Ns 9 

PTOE0148 

149, 

GO TO 155 

PTOE 01 49 

150, 

50 IF IP. LT, 1469, 6) GO TO 55 

PT0E0150 

1*1. 

N* 10 

PTOE0151 

1*2 , 

GO TO 155 

PTOE 01 52 

1*3 , 

55 Ns 11 

PTOE0153 

154 , 

GO TO 155 

PTOE 01 54 

1*5, 

60 IF (T,Ge,59,4) GO TO 75 

PTOE 0155 

156 , 

r\j 

w 

ii 

2 

PTOE0156 

1*7. 

IF IP, G£, 187, 6385) GO TO 155 

PTOE0157 

158, 

t>0 65 1=2,20 

PTOE0158 

159, 

IF IP- p SU)> 70,70,65 

PTOE 0 1 59 

160. 

65 CONTINUE . .. 

PT0E0160 

161 , 

1=20 

PTOE0161 

162, 

70 TM = TS(U1> + (TS(J)-TS(I-1>>«(P-PS<I-1))/(PS<I)-PSU-1)) 

PT OL 0162 

163. 

IF (T.GE.TM) GO TO 125 

PTOE0163 

164, 

GO TO 155 

PTOE 0164 

165, - 

75 IF IT, LT, 108,0) GO TO 85 

PTOE0165 

166, 

IF IP, LT, 132, 264) 50 TO 8o . 

PTOE0166 

167. 

N = 13 

PTOE0167 

168 , 

GO TO 155 

PTOE0168 

169, 

80 N= 14 

PTOE0169 
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170, 


CO TO 155 

PT0E3l70 

171, 

85 

IF ( P , LT • 587 , 8 4 ) CO TO 90 

PI3E3171 

172, 


N»15 

PT0E0172 

173. 


CO TO 155 

PT3E0173 

174, 

90 

IF ( T ,LT * 7 2 « 0 ) CO TO 120 

RT3E3174 

175, 


IF ( T , LT i 86 , 4 ) CO TO 109 

P T 0E3175 

176, 

- . . 

IF <P ,UT ,293,92 ) CO TO 95 

PT0E3176 

177, 


N*16 

PTOE 01 77 

178, 


GO TO 155 

PTDE0178 

17V. 

95 

IF (P.UT.73,48) CO TO 100 

PTOE3179 

180, 


Nsl7 

PTOEOnO 

181. 


CO TO 155 

PTotOl^l 

182. 

100 

N«ld - • - 

PT3E0192 

1P3, 


CO TO 155 

p TOE0l93 

184 , 

105 

IF (P, IT. 293, 92) CO TO 110 

PTOb 01 94 

185, 


N« 19 

PTOE0195 

106, 


CO TO 155 

PTOEOl 96 

187, 

110 

IF ( P , LT i 36 , 74 ) GO TO 113 

°T OE3197 

189, 


N*20 - 

PT OF 01 98 

189, 


CO TO 155 

PTotOl 99 

190, 

115 

N»21 

p T DEO 1 90 

191. 


GO TO 155 

PTOE0191 

192. 

120 

IF (P.LT.293,92) CO TO 125 

PTOE0192 

193,- 


N«22 

PT0E0193 

194. 


GO TO 155 .... - ; 

“TOE0194 

193, 

125 

IF (P.LT, 180.0) CO TO 130 

p TOE0l95 

196, 


N*2J 

PT0E0196 

197. 


GO TO 155 

PTOE0197 

198, 

130 

IF (P, GE.29,0) GO TO 140 

P TOE0198 

199, 


IF (P , LT . 2 , 9392 ) CO TO 135 

PTOEOl'79 

200. 


N = 24 . . - - - 

PT OE 02 00 

201. 


CO TO 155 

PT0E0201 

202 , 

135 

N«23 

PTOE0202 

203, 


GO TO 155 

PT OE0203 

204 , 

140 

IF (T,Ge,64,8> GO TO 150 

PTOE0204 

205, 


IF (P.Ge, 102,0) CO TO 145 

PTOE0205 

206, 


N®26 

PTOE0206 

207, 


CO TO 155 

PT0E3207 

209, 

145 

N*27 

p T OE0208 

209, 


GO TO 155 

p T 0E0209 

210, 

150 

N = 2B 

PTOE0210 

211, 

155 

1F(T.LE,5000, m«N 

PT0E0211 

212, 


FPs(P^Bp(N) )/OP(N) 

PTOE0212 

213, 


JPcpp 

PT0E0213 

214, 


JF<1P,GT,MX(N>) IP«MX(N) 

p T0E0214 

215, 


F I = IP 

PT0E0215 

216, 


f=fh-fi 

p T0k02l6 

217. 


FP = 1.0”F ----- 

PT0E0217 

218, 


FT«(T-8T(N1))/3T(N) 

PT 0E02T.8 

219, 


1 1 *FT 

PT0E0219 

220, 


F I = IT 

PT0E0220 

221, 


ff=ft-fj 

PTOE0221 

22 2, 


F T»1,0"FF 

PT.OE022 2 

223. 


I*IT*JF’(N) + 1PvlOC<N1) 

p T0E0223 

224. 


I *JP( N ) 

PT0E0224 

225, 


PfOtNS s FP*FT # R( I )*F»FT*R< l*l)*FP*FF«R(W)tF?FF*R(J*l> 

PTOE0225 

-2267- 



-RETURN 

PTOE 0226 

227, 


end 

PT0E0227 
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1. 



SUBROUTINE WTCTRL(Pi!»lM,n#0,Sl,S2,S3»lV,IF.WT*Wl> . 

WTCT0001 

2. 



REAL MlNTH< 

WTCT0032 

3, 



dimension RH0L( 10 ) » Rho I ( ltl ) * Mj NTHK( 20 > 

W T 0 T 0 0 ^3 




DIMENSION "TUI 5,2) 

dTCT0034 

s>. 



DATA I PTUI 5 J/255000,, 75000, » 52600,, 210000, # 240000,/ 

WTCT0005 

6, 



DATA I^TUI J, 2), J«li 5 )/305000,, 94000, ,63840,, 219600,, 2B8320,/ 

WTCT0006 

7, 



DATAIHMOLI J), J«l, 5 >/501 i 12, 176 i 26, 169 ,34, 511, 49, 276 ,48/ 

W1CT3037 

8. 



DATAIRH0K jj.jsi, 6 )/2,34,2, 45, 0,59, 0.63, 2, 20, 1,0/ 

WT3T3038 

9, 



OATA<MINTH<< J),U»i» 15) /«02, .025, ,028, ,U2* , J16, .035, ,058, 

WT CT 0009 

10, 


1 

l ,065, ,042, ,02* .049, ,083, ,095, ,049, ,035/ 

WTCT0010 

11. 



wi«o. 

XTOTOOll 

12, 



WT = Q, 

W1CT3012 

13, 



Co TO < 10 , 15, 15, 15, 15, 15,15,15, 25, 15, 25, 25, 35, 35, 45, 30,55,65,701 

i 7 0 w T c T.O 0 1 3 

14, 


i 

*, 70,75,80), I 

WTCT0014 

15. 

C 


sump 

WTCT0015 

16. 


10 

WT = 0. 

*TCT 3016 

17, 



Return 

WTCT0017 

18. 

C 


EQUIVALENT LINE SECTIONS OR VENTURI 

hT"T0018 

19. 


15 

IE (IM.LE.5) GO TO 20 

JTCT301V 

20. 

. .... 


IF < IM.E0.6) GO TO 85 - - 

WTCT0020 

21. ’ 



IF ( IM.EQ.7) GO TO 9o 

WTCT0021 

22, 


20 

CONTINUE 

WTOT0022 

23. 



ST=FTU< 1M, IF) 

WTCT0023 

24. 



THKL = P , ’D # 2,5/<2 i »ST) 

WTCT0024 

25. 



J=0 . 

WTC10C25 

26, 

..... 


IFIP.GE.IOOO, ) J»5 

WTCT3026 

27. 



IF(P,CE,3000, ) J=10 

WTCT3C27 

29. 



IF(THKL,LE.MINTHK< IM*J) ) THKLbMINTHK< IM*J) 

WTCT3028 

29. 



WGTFT*3,14 16*0»THKL*RH0L ( I M)/l44 , 

wT CT 3029 

30. 



WT=Sl»^GTFT 

WT CTOO 30 

31, 

c 


COMPUTE INSULATION WEIGHT 

WTCT3C Jl 

32, 



wi=3.l4l5927*Sl«RH0l< II )«<D+S3/2. )/l44, 

W T C T 3 0 3 2 

33, 



RETURN 

WTCT3033 

34. 


23 

WHITF. <6,30)1 

WTCT0034 

35. 


30 

F0«MAT<T2, »S/R WTCTRL ■» OPTION *,13,’ NOT IMPLEMENTED'/) 

WTCT0035 

36, 



WT = 0, 

wTCTOO 36 

37. 



RETURN 

WTCT3037 

38. 


35 

IDVsjV + 1 

WTCT0038 

39, 


40 

wt*cftw<d,p,idv) 

MTCT0039 

40. 



return 

WTCT3040 

41, 


45 

1DV»4 

WTCT0041 

42, 



GO TO 40 

WTCT0042 

43, 


50 

IDV = 1 

WTCT3043 

44 . 



GO TO 4 o 

WTCT3044 

45. 

c 


U-PIN TIE ROD 3ELL0WS 

WTCT0045 

46, 


55 

IB°1 

WTCT3046 

47 , 


60 

WT*CRWT<D,P, JB) 

wT OT 0047 

48, 



RETURN 

W T C T 3 0 4 8 

49, 

c 


PIN OR HINGE JOINT BELLOWS 

WTCT3049 

50, 


65 

18 = 2 

WTCT3Q50 

51, 



GO TO 60 

WTCT0051 

52, 

c 


external or internal gimbal bellows 

WTCT0052 

53, 


70 

18*3 

WTCT0053 


Fig. B-9 WTCTRL Program Listing 
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54, CO TO 50 - ..WTCTC054 

55, C PRESSURE* VOLUME COMPENSATOR WTCT0055 

56, 75 IBM WTCT0056 

57.. CO TO 50... ; . • WTCT0057 

58, . C INTERNAL BALL-STRUT BELLOWS WTCT0058 

59, 80 1B*5 WTCT0039 

60, CO TO 6o .HTCT0060 

61, C COMPUTE WEICHT OF VACUUMnJACKeTED CRES LINE (321/347) WTCT0041 

62.. 65 A«0, 217684 MTCT0062 

63, 08-6,69016 = 503 .. .... WTCT0063 

64, CO TO 95 WTCT0064 

65, C COMPUTE WEIGHT OF VACUUM® JACKETED ALUMINUM (2219) WTCT0065 

66, 90 A = 0, 35’277 WTCT0066 

67, B«-2,00888£-02 WTCT0067 

68, 95 WT8S1/(A*B«0) WTCT0068 

69, RETURN _.... WTCT0069 

70, END WTCT0070 

i 


Fig. B-9 WTCTRL Program Listing (Cont’d) 
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1, FUNCTION CFTW (OiP.IDV) 

2. C 

HEAL KI,K2.K3.:<4 

DIMENSION <lU>»K2t4),K3{4>,K4t4>»Cl<4>.#C2M>tC3(«>iC4<4> 

DATA Kl/O, 040,0. 057, 0,073,0.090/ 

DATA K//0, 057, o.Q73»0.0’0, 0.107/ 

DATA k3/1,O0Oi2i50O»3,300,5.500/ 

DATA KV2, 500, 3, 300i5, 500.7,700/ . 

DATA Cl/1. 750, 3, 950 i 5, 730, Si 910/ 

DATA C2/3,950,5,730»fl,910.l2,35/ 

DATA C-VO, 300,1, 500,2, 500, 3. 500/ 

DATA C 4 /l, 500, 2,500,3, 500, 4.500/ 

set idv to extra heavy if not input 

IF C IDV ,E3, 0) IDV « 4 
IF (O.LE.l. > GO TO 15 
IF <P,GT, 300.0. AND, D.GT,3.5> gC TO 10 

20, IF (P, t*T. 1000,0, AND, D.lE, 3.5) GO TO 10 . . 

21, CFTW a Kl ( IDV ) »D*D tt D ♦ CiUDV) 

22, RETURN 

23, 10 CFTW a K2( IDV)»D*D*D ♦ C2(lOV) 

24, RETURN 

25, 15 IF <P,GE,1000,> GO TO 20 

26, CFTW a K3<IQV)*Q ♦ 03<lDV) 

27, RETURN 

29, 20 CFTW a K4<lDV)»0 ♦ C4<lOV) 

29, RETURN 

30, END 


3. 

4, C 

5. 

6, C 

7,. 

0. 

’. 

10 , 

11 . 

12 . 

13. 

14. 

15. C 

16. C 

17. 

10. 

19. 


CFTW3001 

CFTWOon2 

CFTWT003 
CFTWC034 
CFTW0CO5 
C F T W 0 0 0 6 
CFTW30 r )7 
CF TW303R 
CF T *3009 
CF TWuC 10 
CFTW3011 
CFTW3012 
CFTW0013 
CFTW 30 14 
CF TW'015 
CFTW3016 
CF TW 30 1 7 
CFTW3018 
CF T WOO 19 
CFTWDC20 
CFTW3021 
CFTW0C22 
CF TW3023 
CF TW30 24 
CFTW0C25 
CFTW0026 
CFTW3027 
CFTW3O20 
CFTW3029 
CFTW 30 50 


Fig. B-10 CFTW Program Listing 
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1. FUNCTION CBWT(OiP.IB) 

2, REALM - - - 

3, DIMENSION C1<5)iC2<5),M<5) 

4, DATA C1/,07384m1255,,i006i14.26»,0948S/ 

5, DATA C2/, 10301, ,1731, ,1262,18,499, ,12692/ 

6, DATA M/2,05, 2, 305, 2, 55, 1,111, 2*334/ 

7, CBWT«CK JB)*D**M< IB) 

8, IF ( P , LE , 150 , ) RETURN 

9, IF (P.UT.300,) GO TO 10 

10, CBWT«CbwT«C2(!3)/Cl<!B> 

11, RETURN 

12, 10 CBWT«CBwT*(P-i50, )*CBWT«(C2I IB>/C1( lB)ei, >/150, 

13, RETURN 


Fig. B-ll CBWT Program Listing 
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CBWT00Q1 
CBWT0002 
CBWT 0003 
CBWT3004 
CBWT0005 
CBWT0006 
CBWT0007 
CBWT0C08 
CBWT 0009 
CBWT0010 
CBWT0011 
CBWT0012 
CBWT 00 13 
CBWT0014 



IMSC-A991396 


2 , 

3. C 

4 . 

5. C 

6. C 

7. 

8 . 

9, C 
10 . 

11 . 

12 . 

13, C 

14, C 

15. 

16. 

17. 

18. C 

19. 

20 . 

21 . 

22 . . C 

23. C 

24. 

25. 

26. 

27, C 

28, C 

29, 

30, 

31, 

32, C 

33, C 

34, 

35, 

36, 

37, C 

38, C 

39, 

40, 

41, 

42, C 

43, C 

44, C 

45, 

46, 

47, C 

48, C 

49, 

30. 

31. 

32. 

53. C 


FUNCTION cone <r*h> 

INCLUDE UCONSTiLIST 

VOLUME OF CONE ( C 1 RCULAR ) 

CONE a PJ*R*R»r / 3 i 0 
RETURN 

VOLUME OF CYLINDER < R I GHTiC l RCULAR ) 

entry cylnor <riH> 

CONE * PJ#R«R#.| 

RETURN 

VOLUME BETWEEN CYLINDER AND SPHEROID 
RROT IS ALONG AXIS OF ROTATION 
Entry CYLSRH (RROT.R) 
cone « P I *R*R»RROT / 3,0 
RETURN 

VOLUME OF FRUSTRUK OF CONE (CIRCULAR) 
ENTRY FrCOnE < R.H.R2) 

CONE * Pl«H*(R»R R2«R2 ♦ R»r2> / 3.0 
RETURN 

VOLUME OF HEMISPHERE OR HALF OF SPHEROID 
RROT IS ON AXIS OF ROTATION 

entry hspheR (RROT.R) 

CONE « P I 2o3»R»R*RR0T 

RETURN 

VOLUME OF SPHERE CR SPHEROID 
RROT IS ALONG AXIS OF ROTATION 

entry sphere (rrot.R) 

CONE = 2 , 0»P I 203*R*R«RR0T 

return 

area of cylinder 

ENTRY ARACYL ( R.H ) 

CONE « 2 i 0»PI*R»H 
RETURN 

AREA OF FRUSTRUM 

ENTRY AREAFR (R.H.R2) 

CONE « Pl*(R+R2)*S3RT <H»H*(R-R2 >»»2> 

RETURN 

AREA OF HALF OF SPHEROID 
RROT ALONG AXIS OF ROTATION 
ENTRY ArSPrR (RROT.R) 

IF (RROT.LE.R) CO TO 10 

ROTARED ABOUT MAJOR AXIS 
E * ECCENTRICITY FOR ELLIPSE 
E = SGi*T <RROT*RROT - R*R)/RRoT 

CONE = P1*R*(R*RR0T«ASIN(E)/E) 

RETURN 

10 IF (RROT.E3.R) CO TO 15 

ROTARED ABOUT MINOR AXIS 


GOSTOOOl 
GOST0002 
GOST OG 0 3 
GOST 0004 
GOMT 0005 
GOST 0006 
GOST 0007 
GOST 0009 
GOST0009 
GOSTOOl 0 
GOSTOOU 
GOST0012 
GOST0013 
GQST0014 
G 0 S T 0 0 1 5 
GQSTOO 16 
GOST0017 
GOST 0018 
GOST 0019 
GCsTOOOO 
GOST 9021 
GOSTOO?2 
GOST0023 
GOSTOC74 
GOST 00 25 
GO S 'T 0 026 
GOSTO027 
COST 0028 
GOST 0029 
GOST 00 50 
GOsTOOU 
GOST 00 32 
GOSTD033 
GOSTOO 14 
G0ST3015 
GOST 00 36 
GOST 00 37 
GOST0038 
GOST 00 39 
GOS T 3 0 4 0 
GOST 0041 
GOST 0 0 4 2 
GOST 0043 
GOST0044 
GOST0045 
GOST0046 
GOST0O47 
GOST0046 
GOST 004 9 
GOST 0050 
GOST0O51 
G0ST3052 
GOST0053 


Fig. B-12 GCMTKY Program Listing 
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54, E a SG1'<T (R*R - RROTaRROT) t R 

>5, CONE a PI*(R*R4.(RR0T«RR0T/(2,*E))*AU0C(U.*E)/(1,-E))) 

56, RETURN 

57, C AREA OF HEMISPHERE 

58, 15 CONE a 2 i«?I«R»R 

59, RETURN 

60, - . ENO 


0051.1054 

00511055 

G05T3056 

G05TOC57 

GO5T0058 

GC5T0059 

G05TQQ6Q 


Fig. B-I2 GCMTRY Program Listing (Cont’d) 
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1. 

C 



sphsoooi 

2. 

. 


subroutine sphseg ( pvql. Rad* h > 

SPHS0002 

3. 

c 



SPHS0003 

4. 



include uconst.list 

SPRS0OT4 

5. 

c 



SPHS3005 

6. 



DIMENSION v(3) 

SPhS3O06 

7 . 

c 



SPRS3017 

8. 

c 


calc, vol. of total hemisphere 

SPHS0008 

9. 



TV0L * PI203 • RA0 # *3 

. SPHS3009 

10 . 



CO TO lo 

SP'HSOOIO 

U. 

c 


ENTRY FOR ELLIPTICAL SPHEH010 

SPHS0011 

12. 

c 


Rad along axis of rotation 

SPHS3012 

13. 



entry ElIPSG < 3 VOLiRaD.RPD.H) 

SPRS3013 

14 • 

c 


.... 

SPRS0014 

IS). 



TVOL s P1203*R3D«RP0»RAD 

SPRS0015 

16.- 


10 

CONTINUE 

SPHS0016 

17. 



*M = PVOL / TVOL 

SPhS OO 1 7 

18 . 



IF IXMiGT.Q , ) CO TO 15 

spnsooia 

19. 



WRITE <6#40)XM 

SPHSD019 

20. 



RETURN ... 

SPHS002Q 

21. 


15 

CONTINUE 

SPRS0021 

22. 



PHI3 « ACOS (1.0-XM) / 3,o 

SPUST022 

23. 



DO 20 1*1.3 

SP-IS0023 

24, 



*1=1-1 

SPHS0024 

25. 



Y(I> « RAD»(1,0 ♦ 2,0*C0S (PHl3 * XI*»PJ203>) 

SPHS0025 

26. 


20 

CONTINUE 

SPHS 00 26 

27. 



DO 25 1=1.3 

SPHS0027 

28, 



K = I 

SPHS0028 

29. 



IF ( Y( I ) iGT,0 « , AND. Y( I ) iLT.RAD) GO TO 30 

SPHS0029 

30. 


25 

CONTtNUE 

SPwSOO 30 

31, 



WHITE <6.35)Y 

SPHS0031 

32. 



RETURN - 

SPHS0O32 

33. 


30 

H = Y(<> 

sphs:o33 

34, 



RETURN 

SPhSOO 34 

35, 

c 



SPHSOO 35 

36. 

c 


RAD ALONG AXIS OF ROTATION 

SPHS0C 36 

37, 



entry cymsph <?vol»Rao.Rpo.h> 

SPhSOC'37 

38. 

c 



SPRSOC 38 

39. 

c 


TO CALC, head In A VOLUME BETWEEN A CYLINDER AND 

SP’RSOQ 39 

40. 

c 


SPHEROID 

SPHS0040 

41, 



D = 3,0*RA3«RAO«PVOL / IPI«RP04RPD) 

SP-iS TQ4 1 

42. 



H = RA'3 - (RAD»*3 •» n)* 9 <l,/3,> 

SPRS0Q42 

<3. 



RETURN 

SPHS0043 

4 4 , 

c 


, 

SPHS0044 

45. 


35 

format co* iox *coulo not find h for hemisphere* sfis.a/j 

5PHS3045 

46, 


40 

FORMAT I 'O' IOX 'ERROR INPUT TO SPHSEG* Fl.5,7) 

SPRS0046 

47, 

c 



SPHS0047 

43. 



end 

SPRS3048 


Fig. B-13 SPHSEG Program Listing 
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APPENDIX C 

SOPSA PROGRAM AND SUBROUTINE DICTIONARY 

This Appendix contains an alphabetic listing of all the alphanumeric 
names (variables, subroutines, functions, etc.) used in the SOPSA 
program. Following each entry in the list is a set of line numbers. 
These are the lines on which the entry appears in the program listing 
(Appendix A). Similar tables are presented for statement numbers and 
transfer statements used in the program. 

Following each entry and each line number is a set of flags. These 
flags indicate the type of entry and how the entry is used each time 
•it appears. The heading of each table explains the meaning of these 
flags. The name of the COMMON block is also listed in the error flag 
field for any variable name appearing in a named COMMON block. 


C-l 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


THIS PAGE IS BLANK 
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0 

1 

UJ 


7HP? .FIRST' FLA6 INOlCAtES THE 
NATURE OF: THE ALPHABET 10 ENTITY 
3 undimensicneo variable 
DMVR 3 DIMENSIONED VARIABLE 
FCTN a FUNCTION NAM 3 

lbcn 3 name of labe.ed common 
SBRT = sutjHOtJT I NE N*ME 
SWVR = SWITCH VARIA3LE 

nmlt a namelist name 


Table C-l 
STAR DICTIONARY 

variable table 
the following two character flags 
indicate that the f_ntity is in the 
corresponding type of statement 
AB « ABNORMAL EX 

CM a COMMON FA 

CP 8 COMPLEX in 

0a a Data LC 

dm * DIMENSION PR 

DP B 031 PREciSN RL 


EXTERNAL 
F0RML ASUMT 
INTEGER 

logical 

PARAMETER 

RFal 








EG 

1 a EQUIVALENCE NL s namelist 



AAA 

I.BCM 

CM 

Cm 

CM 

CM 

76E 

77E 

78E 

79 E 





ABC 

dmvr 

DM 

fcQ 

E3 

EQ •« 

6«E 

65E 

65E 

65f 

65E 

65E 

63E 

65E 

- . . 






&^E 

63E 

65E 

65E 

65E 

65E 

63E 

98C 

ADH 

dmvr 

DM 




6Ae 

4224 

8C9B 






f.CO 

dmvr 

DM 




6*E 

39 4A 

757B 






aOOmE 


CM. 



01 MEN 

1*E 

9250 







A M A X 1 

fctn 





746b 

798B 







askin 


CM 



DIMEN 

i 7 e 

9250 







ATOT 


CM 



01 MEN 

1 7 E 

9250 







A 1 


CM- 



DIMEN 

1 7 E 








A2 


CM 



01 MEN 

1 7 E 








A3 


Cm : 



0 1 MEN 

1 7 E 








A4 


CM' 



DIMEN 

1 7 E 








46 


cm; 



DIHEN 

1 7 E 








A 7 


CM 1 



D I MEN 

1 7 E 








8?j 3 

t 3C.M 

CM 




aO£ 








ccc 

lBcm 

CM, 




81E 








CONGP 


1 




53U 

5478 

563B 

570a 

5ft6B 

602B 



0 






5304 

541C 

544B 

557c 

560B 

569a 

580C 

583B 

ODD 

IBCM 

CM, 




«2e 








CELT IM 


* 




490a 

491B 

493B 

49 4B 

4958 




Q r W G T w 

r> MyR 

dm) 




2 7 E 

488 a 

489B 

494 B 

50’B 

5860 

602B 


IjFWCTO 

V R 

DM, 




2 7 E 

487a 

48 7B 

493b 

5o ft B 

5479 

563B 


0 I A 


1 




750a 

761C 

773A 

783c 

8q 2 A 

313C 

8254 

835C 

DIF*GT 

nMvR 

DM 

CM 


FFF 

26e 

86E 

4d?A 

49J.& 

4?5B 




0 1 MEN 

I.BCM 

CM 



... 

i- 7 e 


- - 

- 





OLPaCH 

nM\/R 

C’M 

EG 



43e 

65E 

4554 

463a 

631B 

63’B 

715B 

733B 

DLFaCO 

n«V R 

DM 

EG 



43£ 

65£ 

436A 

444a 

6308 

6368 

7.120 

732B 

QI.PHDH 

PiMyH 

Dm 

CM 


FFF 

2&E 

66E 

5Z1A 

639q 

103«0 




DL Pu OO 

QMyR 

Dm 

CM 


FFF 

?*E 

86E 

5204 

636ft 

103*0 




DuPLNH 

TMvH 

OM 

EG 



4«E 

65E 

586 A 

602a 

6318 

6398 

715B 

733B 

dlplno 

OMy.R 

DM 

EG 



4 4 E 

65E 

547A 

563a 

630B 

6360 

7120 

7320 

E 






72 V B 

7308 







ErE 

LBCM 

CM 




b4£ 








EQLF 

M \f R 

Cm 



D 1 MEN 

1 7 E 

4 7 1 A 







E3LR1 

dMvr 

Oil 




2*E 

1551 

471B 

94Sq 





EXIT 

SB : > T 





13599 








FEET 


Da 




93 A 

4719 







FFF 

LBCM 

CM 

CM 

CM 


66E 

8SE 

09E 






F I FWAC 

TMvR 

Dm 

CM 


AAA 

2 V E 

78E 

2991 

aD 

O 

O 

iTN 

10140 




FI NOR 

FCTN 













FLO" ES 

SH.T 





541H 

557B 

580B 

596b 





FNOM 

nMyR 

Dm 

CM 


DOD 

32E 

82E 

2601 

500b 

9i80 




FTOW 

HMvR 

Dm 

CM 


FFF 

2 6 E 

86E 

500A 

5018 

502A 

520B 

521B 

6730 

GC 

-)MyR 

Dm 

CM 

DA 

ccc 

32E 

8 IF. 

93A 

4368 

444B 

455ft 

46 JB 



the flags following the line njmbets 
(ON WHICH THE ENTITY WAS REFERENCED J 
INDICATE THE nature of The REFERENCE 
A S SET EQUAL«DEFIN'ED. assigned 

B B REFERENCED.CALLED 
C » CALLING SEQUF-NCE h 
D a SUBSCRIPT 
E a SPECIFICATION 

j « do parameter l » 


NO UNIT 
I a READ 
0 a WRITE 
LIST 


65E 65E 


65E 


65E 65£ 


65E 


IMSC-A991396 
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Tt ,e C-l 


STAR DICTIONARY (CONT'D) 


gcg 

lbc.m 

CM 

CM 


90E 

91E 













HCAYP 


Cm 


EEE 

6 4 E 

568A 

581A 

561b 

5034 

5838 

504B 

5863 

597A 

597B 

5994 

599B 

600B 

5029 

HOOUM 


Cm 


EEE 

8 «E 

449a 

455B 

463b 











HDH2 


CM 


DIMEN 

1?E 

4708 

516B 

521ft 











HDLDUM 


CM 


EEE 

84£ 

567A 

586B 

602 B 











HO 02 


CM 


- . DIMEN .. 

l'E 

4778 

515B 

520ft 











HOTlNC 


CM 


EEE 

64E 














HEA 0 H 2 
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564p 


345 

565 

549X 

5650 


350 

567 

527* 

5670 


355 

382 

576V 

5821) 


360 

587 

585V 

5B7D 


365 

592 

5 7 IX 

5920 


.370 . 

598 

592V 

59BU 


375 

603 

601V 

6030 


380 

604 

588X 

604D 


385 

405 

526V 

566X 

60 5 D 

390 

417 

616* 

616* 

61'D 

395 

620 

6 1 6W 

6200 


....4 00 

422 

615V 

619X 

622q 

403 

434 

629V 

6340 

410 

636 

635* 

635* 

63&D 

_ 415 

639 

635* 

6390 


420 

641 

624V 

63»X 

6 4 id 

425 

642 

623V 

6420 


43Q 

' 656 

633* 

655* 

65&D 

435 

660 

635* 

6600 


440 

663 

654V 

659X 

663q 

445 

664 

633V 

6640 


450 

673 

672* 

672* 

• 6730 

455 

675 

67 2* 

6750 


460 

678 

671V 

674X 

67»D 

465 

679 

666 V 

6790 


470 

685 

684* 

684* 

685d 

475 

692 

664* 

6920 


480 

*95 

6V1X 

6930 


485 

696 

683 V 

6960 


490 

702 

70 1* 

701* 

7020 

495 

704 

701* 

7040 


500 

705 

7U0V 

7U3X 

705D 

505 

712 

711* 

711* 

7120 

510 

715 

711* 

7130 


515 

717 

710V 

7 1 4 X 

7l7D 

520 

718 

709 V 

7180 


525 

736 

731V 

7360 


530 

741 

725V 

7 410 


535 

764 

731V 

7640 
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I 

K 


_ 540 . 

786 

,774V. 

-7860 



545 

791 

769V 

7910 



550 

797 

745X 

7970 



555 

816 

■ ■ 803V 

8160 



560 

833 

826V 

8380 



563 

843 

821V 

843(3 



-573- 

849. 

- -722V. 

...797X. 

.8490 


573 

858 

857S 

8580 



580 

860 

859S 

8600 



- 583 - 

. 880 

- 879S 

.8800 



590 

(i 96 

855X 

8960 



593 

903 

902S 

9030 



■ — 600- 

_ 906.. 

- 905S 

9060 



605 

908 

9 0 7 W 

9080 



610 

909 

9Q8S 

90’0 



—613 

911 

90 7 W 

9110 



620 

912 

911S 

9120 



623 

914 

9074 

9140 



—630-- 

..- 915 

914S 

9150 

... 


635 

917 

910X 

913X 

917(3 


640 

919 

91SS 

9190 



645 

■527 

925S 

9270 



650 

942 

94 IS 

9420 



655 

947 

946S 

9470 



660 

-949 

. .... 948S 

9490 



665 

953 

945S 

952S 

9530 

966S 

670 

955 

954S 

9550 



675 

963 

960X 

9630 



680 

964 

96 1 S 

963S 

9680 


685 

965 

959V 

962X 

9650 


- 695- 

969 

968S. 

9690 


_ 

700 

971 

970S 

9710 

982s 

990S 

705 

974 

973V 

9740 



710 

976 

978S 

9760 

984S 

992S 

715 

980 

979S 

9800 



720 

984 

903 V 

984D 



... 725 

986 

9 7 7V 

9860 



730 

987 

967X 

9670 



735 

989 

988S 

9890 



740 

992 

' 991V 

9920 



745 

997 

996S 

9970 



750 

1001 

1000V 

10010 



755 

1003 

994V 

10030 



760 

lno4 

987X 

10040 



765 

1007 

10Q6S 

10070 



770 

1910 

1009S 

10100 



775 

lpl6 

1014S 

10160 



780 

1018 

1013V 

101HU 



785 

1023 

900S 

944s 

100*S 

1022S 

790 

ln2S 

901S 

102‘IS 

10250 

1201S 

795 

1027 

10265 

10270 



800 

1031 

1 0 3 0 S 

10310 



605 

1036 

1035S 

10360 



810 

1040 

103HS 

1040U 



— 815 

. 10-*2 

1037X 

10420 



820 

1043 

1034 V 

10430 



825 

1049 

104HW 

10484 

10*90 


, 830 

1050 

1 0 8 9 S 

1060Q 

107<>S 

1093s 


Table C-l 

STAR DICTIONARY (CONT'D) 


966S 1337S 1343S 1349s 


999S 
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. I ... . „ _ , 

..... 1356S 




833 

1032 

1051S 

1052D 

1094s 


840 

105,4 

1053S 

10540 

1079s 


843 

1036 

1055S 

10560 

1080S 


850 

1061 

1060S 

10610 

1081S 


655 

1067 

1066S 

10670 

1083s 


860.. 

10 70. 

... 1069S 

1070D 

.10055 


865 

1072 

1 0 6 8 X 

10720 



870 

1073 

1065V 

10730 



873 

1074 

1O40W 

10740 



880 

107,8 

1077S 

1078D 

HUS 


883 

1086 

10B4X 

10660 



.890 . 

... 1007 

1082V 

10070 



895 

1088 

1075X 

10080 



900 

1093 

1092W 

1092W 

10930 


905 

1096 

1095S 

10960 

lllZS 


910 

1104 

1103S 

11040 

1110S 


913 

1106 

1102X 

11060 



. ... 920 

. 1107 

lioo v 

11070 



925 

HC8 

1 d 9 2 w 

uoau 



930 

lli9 

1117X 

11190 



.. 935 

1120 

1115V 

11200 



940 

U21 

1109X 

11210 



945 

1128 

U27S 

11280 



.... ...950 . 

, 1130 

1129S 

11300 

U51S 


955 

1143 

1140V 

1143U 



960 

1144 

U39X 

11440 



965 

1143 

1 1 4 4 S 

11430 

1160 s 

1 

970 

1 1 4 6 

1136V 

1 138 X 

11460 


975 

1148 

1123X 

11480 



980 

1150 

1 1 4 9g 

11500 



985 

1159 

1136V 

11390 



990 

1160 

1 1 5 5 X 

11600 



995 

1161 

1152 V 

11 5 4 X 

lielD 


1000 

llf>2 

1147X 

11620 



1005 

1 1 67 

1166W 

1 1 6 6 W 

11670 


1010 

11 70 

1169S 

11700 

U06S 


1015 

1 1 78 

1.1 77S 

11700 

1192s 


1020 

1180 - - - 

' 11 7 6 X 

11800 



1025 

1101 

1174V 

11010 



1030 

1132 

1166W 

118 20 



1035 

1193 

1 1 9 1 X 

11930 



1040 

ll 94 

. n«9v 

119«Q 



1045 

ll|95 

1103X 

11950 



1050 

1203 

12025 

12030 



1055 

1?07 

1206S 

12070 



1C60 

1212 

1211S 

12120 



1065 

171* 

1215S 

12160 



1070 

1221 

1220S 

12210 



1075 

1727 

1224S 

12270 



1C HO 

1230 

1 222X 

12300 



1C85 

1731 

1219V 

12310 



1090 

1736 

1235W 

1233W 

123&D 


1095 

1239 

1238S 

12390 

1253s 


1100 . 

1?47 

1245X 

12470 



1105 

1748 

1243V 

12480 



1110 

1249 

1235W 

12490 



1113 

1260 

1253X. 

1260D 



Table C-l 

STAR DICTIONARY (CONT’D) 


llUS 1169s 12325 1283s 13l<S 
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Table C-l 


STAR DICTIONARY (CONT'D) 


0 

1 

H 

4 =- 


1120 1261 - 

1125 1262 

1130 1267 

1135 1270 

1140 1278 

1145 1279 

1150— 1280 - 

1155 1291 

1160 1292 

1165 1293 

1170 1298 

1173 1301 

1180 - 1309 -- 

1185 1310 

1190 1311 

1195 1322 

1200 1323 

,1203 132* 

^ — 1210—1330 

1213 1342 

1220 13«4 

1225-1347 

1230 1348 

1235 1351 

1245... .1358 


1256V 12610 
1250X 1262D 
1266W 1266W 1267Q 
1269S 12700 1284s 
1276X 1278D 
127<V 12790 

- 1 2 6 6 W 12800 

1289X 129 ID 

1287 V 12920 
1281X 1293D 
1297W 1297W 129«D 
1300S 13010 1315S 

— 1307X 1309D - 

1305V 13100 
1297W 13110 
1320X 13220 
131«V 13230 
1312X 1324D 

- 1329S 13300 
1339V 1342D 
1338X 134«o 
1344V 1347D 
1340S 1345S 13480 
1350S 13510 

..... 1357S 1358D 



IMSC-A991396 



C-15 
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I 


Table C-l 

STAR DICTIONARY (CQNT’D) 


ONLY THOSE ENTITIES WHICH ARE REFERENCED ARE PRINTED OUT, 


transfer table 


DO 

IF (LOGICAL) 

IF (ARITHMETIC ) 1 


COTO (UNCONDITIONAL) 
GOTO (ARITHMETIC) 
GOTO (CONDITIONAL) 


CALL 

...FUNCTION. REFERENCE- 
RETURN (STANDARD) 


THE COMPLETE LIST FOLLOWS 

RETURN (NON-STANDARD) 

ASSIGN 

TAKES 


INPUT STOP 

OUTPUT 

internal subprogram 


DO 

1 

113 

177 

166 

! 188 

206 

214 

216 

36i 

372 

376 

393 

400 

404 

421 

427 

435 

443 

454 

462 

' 470 

4 66 



526 

537 

546 

! 553 

562 

576 

505 

592 

60I 

615 

623 

624 

629 

653 

654 

668 

671 

683 

?00 

709 

7.10 


1 

722 

72? 

731 

751 

769 

774 

803 

82l 

826 

959 

973 

977 

903 

991 

994 

1000 

1013 

1034 

1065 

1082 

1100 


1115 

1136 

1140 

1152 

1156 

1174 

1109 

1219 

1243 

1256 

12/4 

1287 

1305 

1310 

1339 

1344 






IF ( L > 


123 

150 

157 

180 

191 

2G0 

209 

219 

227 

243 

253 

264 

276 

203 

290 

294 

301 

308 

312 

319 

323 



330 

334 

341 

' 345 

363 

374 

375 

377 

37» 

379 

302 

303 

384 

385 

396 

402 

403 

405 

406 

407 

410 


i 

Ml 

412 

413 

1 431 

447 

450 

501 

502 

532 

566 

371 

618 

619 

621 

632 

633 

633 

657 

658 

659 

661 


1662 

674 

676 

677 

691 

703 

714 

734 

735 

739 

740 

745 

757 

760 

782 

797 

809 

812 

034 

855 

VA f ) 


1967 

.98 7 

1037 

1063 

1075 

1034 

1102 

1109 

Ul7 

1125 

113b 

1139 

1147 

1154 

1155 

1176 

1183 

1191 

1222 

1245 

1253 


1253 

1276 

1281 

1289 

1307 

1312 

l32o 

1338 

1353 













GOTO(UC) 


123 

150 

157 

100 

191 

200 

209 

219 

227 

243 

253 

264 

276 

283 

290 

294 

301 

300 

312 

319 

323 

r ... . 

1 

330 

334 

341 

,345 

368 

379 

. 301 

382 

383 

387 

396 

407 

409 

410 

411 

415 

431 

438 

447 

450 

457 



501 

532 

549 

,566 

57 1 

580 

619 

638 

659 

674 

691 

703 

714 

745 

797 

855 

913 

913 

960 

962 

967 


1 

VR7 

1037 

1068 

1075 

1084 

1102 

1109 

1117 

1125 

1138 

113V 

1147 

1154 

1155 

1176 

1183 

1191 

1222 

1245 

1250 

125P 


1 

276 

1281 

1289 

1307 

1312 

1320 

1338 

1353 














GOTO(C> 

1 

428 

527 

616 

635 

655 

672 

684 

70i 

711 

907 

1048 

1092 

1166 

1235 

1266 

1297 






CALL 


9ft 

472 

474 

512 

541 

557 

5Bo 

39 6 

610 

613 

647 

650 

687 

761 

703 

813 

835 

1359 




FCT REF 


683 

693 

746 

! 798 


















INPUT 


109 

121 

142 

1 144 

155 

176 

178 

189 

197 

205 

207 

217 

225 

240 

250 

260 

273 

2»1 

289 

291 

299 



1307 

309 

318 

'320 

329 

331 

34q 

342 

351 













OUTPUT 


857 

659 

879 

900 

901 

902 

9Q5' 

' 908- 

9H 

914 

910 

925 

941 

944 

945 

946 

94» 

952 

954 

961 

963 



'968 

968 

970 

974 

979 

902 

984 

988 

990 

992 

996 

999 

1001 

1005 

1006 

1009 

1014 

1022 

1024 

1026 

1033 


1035 

1038 

1049 

1051 

1053 

1055 

1060 

1066 

106’ 

1076 

1077 

1079 

1060 

1081 

1083 

1085 

10.9 3 

1094 

1096 

1098 

1099 


U01 

nos 

1110 

un 

1112 

1113 

1114 

1116 

1110 

1126 

1127 

1129 

15.37 

1144 

1148 

1149 

1151 

1103 

1160 

1167 

1160 


1169 

1172 

1173 

1175 

1177 

1104 

1185 

1186 

1107 

1108 

1190 

1192 

1200 

1201 

1202 

1206 

1211 

12* ? 

1220 

1224 

1236 


1237 

123a 

1241 

1242 

1244 

1246 

1251 

1252 

1253 

1254 

1255 

1257 

1259 

1267 

1268 

1269 

1272 

1273 

1275 

1277 

1?82 


*2«J 

1234 

1285 

1286 

1288 

.1290 

1298 

1299 

1300 

1303 

1304 

1306 

1308 

1313 

1314 

1315 

1316 

1317 

1319 

1321 

1328 


1329 

1337 

1340 

1343 

1345 

1349 

1350 

1356 

1357 















1 

I 


I 
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C-2 

INI VOL DICTIONARY 


THE FIRST HUG INDICATES THE 
NATURE OF THE ALPHABETIC ENTITY 

- . 3 UNO l HENS 1 ONE 3 VARIABLE 

OMVH 3 DIMENSIONED VARIABLE 
fctn 3 Function nam; 

— lbcm ■ Name OF labeled common 

SBRT 3 SUSHOUTINE N 4 ME 
SWVR 3 SWITCH VARIABLE 
nmlt 3 namelist nam^ 


VARIABLE TABLE 
the following two character flags 
indicate that THE entity is in the 

CORRESPONDING TYPE OF STATEMENT 
AB 3 ABNORMAL EX a EXTERNAL 

CM a COMMON FA a FORML AdJMT 

CP ■ COMPLEX IN 8 integer' 

da * data lg b logical 

DM * DIMENSION PR a PARAMETER 

DP 3 D3L PRECISN RL a REAL 

EQ a EQUIVALENCE NL a NAMELIST 


THE FLAGS FOLLOWING THE LINE NUM3ERS 
(ON WHICH THE ENTITY WAS REFERENCED) 
INDICATE THE NATURE OF THE REFEKENCE 
A 3 SET EOUAL.DEFINEO, ASSIGNED 
B » REFERENCED. CALLEO 
C 3 CALLING SEQUENCE H « J-0 UNIT 

D e SUBSCRIPT I « READ 

E 3 SPECIFICATION 0 a WRITE 

J 3 DO PARAMETER L 3 LIST 



adome 


Cm 

D I MEN 

12E 


aRACYL 

FCTN 



25B 


arEafr 

FCTN 



228 


arSphr 

FCTN 



1VB 


ASKJN 


CM 

DIMEN 

• 12E 


ATOT... 


Cm . . . 

njMEN 

12E 


A1 


CM 

DIMEN 

1ZE 


A2 


CM 

DIMEN 

12E 


A3 


CM 

D I MEN 

12E 


AW 


CM 

DIMEN 

12E 


A 6 


CM 

DIMEN 

12E 


. A7 


C'M 

DIMEN 

1?E 

a 

CYLNOR 

FCTN 




H 

CVLSPW 

FCTN 



31B 


D I MRN 

lbcm 

CM 


1?E 


c OLR 

OMvR 

CM 

D J MEN 

1?E 


FRCONE 

fctn 



218 


HCH2 


CM 

DIMEN 

12E 


H002 


CM 

01 MEN 

1ZE 


HSPHER 

FCTN 



1»B 


INIVOL 

sbrt 



2 A 


LI 


Rl 


1 °E 


L2 


RL 


10E 


L3 


Rl . . 


.... lOE 


L4, 


Rl 


1UE 


R1 




1»C 


R2 




1«C 


R3 




2?C 


RW 




21C 


.. R5 




3 6 C 


UVLW2 


Cm 

0 1 MEN 

12E 


UVL02 


CM 

0 1 MEN 

12E 


VTH2 


Cm 

DIMEN 

12E 


VTOT 


CM 

0 I MEN 

12E 


VT02 


Cm 

D l MEN 

12E 


..VI 


Cm 

D I MEN 

.. 12E 


V2 


CM 

0 1 MEN 

12E 


V3 


CM 

DIMEN 

12E 


V 4 


CM 

01 MEN 

1ZE 


V5 


CM 

01 MEN 

12E 


V6 


CM 

D l MEN 

12£ 


V7. . . 


Cm 

D I MEN 

tZE 


46A 

34B 

28B 378 

45a 

44 4 458 .... . 

194 44B 

224 448 

25a 44B 

28a 44B 45B 46B 

34a 44B 

37a 448 , 

33B 


27B 36 B 

21C 22C 

21C 22 C 24c 25 C 

24 C 25 C 33c 3 4 C 

33C 34C 

19C 

19C 21C 22C 

28C 31C 33C 

22C 24 C 25c 27 C 2BC 31C 33C 34 C 36C 

37C ....... 


41 A 43B 
434 

39a 43B 
lflA 39B 
21A 39B 
24A 39B 
27A 39B 
31A 418 
33A 41B 
36A 41B 


37C 
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Table C-2 
INI VOL DICTIONARY 


' r - , - — T. R A. N S F. E R ... T. A B L E 

ONL* TH0,SE ENTITIES WHICH ARE REFERENCED ARE PRINTED OUT, THE COMPLETE LIST FOLLOWS 

DO . I OOTO '(UNCONDITIONAL) CALL RETURN (NON-STANDARD) INPUT 

IF (LOGICAL) GOTO (ARITHMETIC) — -FUNCT {ON - REFERENCE ASSIGN OUTPUT 

IF (ARITHMETIC) GOTO ^(CONDITIONAL) RETURN (STANDARD) TAPES INTERNAL 

FCT REF | 18 19 21 22 24 & 2? 28 ST 33 3« 36 37 ~ 

RTRN(S) 47 

..SUB PROG j . ... 2 ; 


I 

I 

I 


STOP 

sub^hoc^am 


96£t66v~OSWI 



LOCKHEED MISSILES'-SkSPACE COMPANY 


THE FIRST FUC INDICATES THE 
NATURE OF THE ALPHA3ETJC ENTITY 

s UndInensjoneo variable 

DMvR = dimensioned variable 
F CTN = FUNCTION N A M - : 

-L6CM- »-NaME. OF LABE.EO COMMON 

SBRT « SUBROUTINE NAME 
SWVR « SWITCH VARIABLE 
nmlt • namelist name: 


Ta^le C-3 

ULEHED DICTIONARY 

... -.VARIABLE TABLE 
THE FOLLOWING TWO CHARACTER FLAGS 
INDICATE THAT THE ENTITY IS IN THE 

CORRESPONDING TYPf Of STATEMENT 

AB a A3NORMAL EX = EXTERNAL 


AB a A3NORMAL 
CM ■ COMMON 

.. CP. 8 .complex. ... 

DA ? DATA 
DM a OIMENSION 


FA a FORML AOUMT 

. IN a INTEGER ... 

LG a LOGICAL 
PR a PARAMETER 


DP. * D3L PRECISN.. ..RL a REAL 

EQ • EQUIVALENCE NL a NAMELIST 


THE FLAGS FOLLOWING THE LINE NuMBERS 
(ON WHICH THE ENTITY WAS REFERENCED) 
-INDICATE THE NATURE OF THE REFERENCE. 
A a SET EQUAL. DEFINEDiASSIGNED 
B a REFERENCED. CALLED 
C A CALLING SEQUENCE H « 1-0 UNIT.... 

D a SUBSCRIPT I a READ 

E a SPECIFICATION 0 a WRITE 

- j a do. parameter .....l » list 



AOOME 


CM 

DIMEN 

he 







ASKIN 


CM 

DIMEN 

«E 







atot- 


CM 

D ] MEN 

. ... HE 

. 










A1 


CM 

0 I MEN 

«E 







A2 


CM 

DIMEN 

HE 









CM ... - - 

D I MEN 

me 







A4 


CM 

DIMEN 

he 







Ao 


CM 

D 1 MEN 

HE 







A 7 


CM 

D I MEN 

he 


. , 

. 




CYMSPW 

SBRT 



5»B 







dimen 

lbc.m 

CM 


»E 







ELIPSG- SBKT 



.... 2TB. 

. - 42B 

..... 5 OB 

. 


. _ 

0 

Eolr 

DMVR 

CM 

D l MEN 

HE 






H 

H 




42c 

43a 

5«C 

59b 



CO 

H0H2- 


CM 

D J MEN 

HE. 

50C 

... 54A 

59* 




HD02 


CM 

01 MEN 

He 

27C 

31 A 

38a 

3’A 

39B 


HL 




3PA 

37B 

38B 

38g 




IOT 





23h 

46H 







Li 


RL 


®E 

35B 

43B 





L2 


RL 


*E 

35B 

3VB 





L3 


rl 


A E 

393 

. 433 

59b 




L4 


Rl 


6 E 

59B 






?t 




31B 

37B 

3«B 

38q 

38 B 

54B 


Rl 




42C 

43B 






R2 




3&B 

42C 






R3 




2'C 

31B 

39B 

43b 

58 C 

59B 


R4 




2 7 C 

31B 

31B 

360 

37B 

37B 


R4 2 




3 A A 

37B 

38B 

380 




R5 




50c 

54B 

59B 





ULLKED 

SBRT 



2 A 







UVLH2 


CM 

DJ KEN 

»E 

45 a 

46B 





UVL02 


CM 

D I MEN 

»E 

22A 

23B 

42C 




VD 




3?A 

38B 






VMP 




sn 

58C 






VL.H2 ■ 


Fa 


24 

453 

49B 

50C 

52b 

54B 


VL02 


Fa 


2A 

228 

26B 

27 C 

30B 

31B 


VTH2 


CM 

DIMEN 

HE 

4 5B 






VTOT 


CM 

DIMEN 

HE 







VT02 


Cm 

DIMEN 

«E 

22B 






VI 


CM 

01 MEN 

HE 







V2 


CM 

DIMEN 

«E 

348 






V 3 


CM 

D 1 MEN 

»E 

30B 

34B 

370 




V 4 


CM 

DIMEN 

HE 

26B 

30B 

310 

3 4 B 

37B 


V5 


CM 

U 1 MEN 

HE 







38B 50C 54B 54B 58C 


E7D 
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i 

i 


j i 

i 


0 

1 

M 

VO 


I 


Table C-3 

' ULLHED DICTIONARY (CONT'D) 

i 

I 

C>| 0 1 MEN 4?B 53B 54b 5 7 B 


f 

\ 
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Table C-3 

ULLHED DICTIONARY (CONT'D) 


STATEMENT N U 1 B E « TABLE 

THE FIRST ENTRY FOLLOWING THE STATEMENT NUMBER THE FLAGS FOLLOWING THE LINE NUMBERS (ON WHICH ThE 

! S TwE number OF THE LINE ON WHICH IT WAS OEFINEo STATEMENT NUMBER WAS REFERENCED) INDICATE THE NATURE 

of. the reference 

D « DEFINED U b ASSIGNED X ■ GOTO (UNCNDTNL) 

S ■ FORMAT NUMBER V • DO Y ■ IF (ARITHMETIC) 

— _...T a NONSTNDRU HTN W » GOTO (CNDTNL) 



10 

18 

180 

23S 

46S . 


15 

27 

26 Y 

27D 


o 

20 

30 

26 Y 

26 Y 

300 

ro 

. 25... 

. . 31 . .. 

30 Y 

30 Y 

310 -. ... 

o 

30 

34 

30 Y 

340 



35 

35 

34 Y 

34 Y 

35D 


40 

42 

34 Y 

42D 



45 

45 

2«X 

32X 

40X 430 


50 

50 

49 Y 

500 



-55 

52 

4 9 Y 

49 Y 

- 520 - 


60 

54 

52Y 

52Y 

54q 


65 

57 

52Y 

570 



70 

60 

51X 

55X 

600 
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Table C-3 

ULLHED DICTIONARY (CONT’D) 


TRANSFER TABLE 

only THOSE ENTITIES which are REFERENCE!) ARE PRINTED OUT, THE COMPLETE LIST FOLLOWS 


DO 

1 

GOTO 

(UNCONDITIONAL) 

CALL 

RETURN ( NON-STANDARD > 

INPUT 

IF 

(LOGICAL) 

GOTO 

(ARITHMETIC) 

FUNCTION REFERENCE 

ASSIGN 

OUTPUT 

IF 

(ARITHMETIC) 

GOTO 

(CONDITIONAL) 

RETURN (STANDARD) 

tapes 

INTERNAL 


0 

1 

IF(L) 

23 

46 




ro 

IF(a) 

26 

30 

34 

49 

52 


GOTO(UC) 

28 

32 

40 

51 

55 


CALL 

27 

42 

50 

58 



RTRN(S) 

61 






OUTPUT 

23 

46 





SUB PROG f’* 2 


STOP 

S'JB^WOGRAf' 
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Table C-U 

FLORES DICTIONARY 


— • — V A R 1 A B L.E.....T A 0 L E 

THE FIRST FLAG INDICATES THE THE FOLLOWING TWO CHARACTER FLAGS THE FLAGS FOLLOWING THE LINE NUMBERS 

NATURE OF The ALPHABETIC ENTITY INDICATE THAT THE ENT J T Y IS IN THE (ON WHICH THE ENTITY WAS REFERENCED) 

8 UNDIMENSIONED: VARIABLE CORRESPONDING TYPE . OF STATEMENT INDICATE THE NATURE OF THE REFERENCE 

DMVR » DIMENSIONED VARIABLE AB ■ ABNORMAL EX a EXTERNAL A * SET EQUAL. DEFINED, ASSIGNED 

fctn ■ function nam? cm « common fa a forml agumt b ■ referenced. called 

lbcm ...» Name of labe.ed common CP • complex IN a INTEGER C ■ CALLING sequence H ■ t-0 UNIT 

SBRT « SuBHOUTINE N»ME DA a DATA LG a LOGICAL D * SUBSCRIPT I a READ 

SWVR • SWITCH VARU3LE DM a OIMENSJON PR a PARAMETER E a SPECIFICATION 0 ■ WRITE 

...nmlT * namelist nam=; dp « 03L. precisn. .rl ■ real j .« do parameter l » list 

EQ a EQUIVALENCE NL a NAMELIST 


0 

1 

ro 

ro 


A0S FCTN 

200 














ARC 

5&A 

57C 

68 A 

69 C 











ATAN- FCTN 

- 5/B 

69B 













blod 

40a 

4 IB 

45B 












C 

&A 

17B 

57B 

69b 











cw 

- — 5 y A 

62A 

64 A - 

658 











D 

Fa 1a 

7B 

55A 

55b 

68B 

97b 

10 OB 

103B 

109B 

112B 

115B 




DIF 

4 A A 

46B 













DIFl 

4^A 

46B . 













FLORES SBRT 

U 














ID 

FA 1a 

8B 













P - 

..... 7a . 

19b 

33B 

34r 

3®B 

39b 

4UB 

. 50B 

SIB 

56B 





PI 

PA 

32B 

37B 

A 9g 











RES 

fa 1a 

1 1 A 

1«A 

21A 

2<A 

27a 

29A 

33 A 

34 A 

34B 

42A 

46A 

5 4 a 

65A 

— - 

■ ' 65b 

71A 

74 A 

76 a 

81A 

. 89A 

9 AA 

97A 

100A 

103A 

106A 

109 A 

112 A 

U5A 

resldo 

3«A 

440 

4 6B 

50a 











RESLD8 

3’A 

42B 

• 4 4B 

51a 











RESSO 

.... - — - ■ i y A 

21B . 

2AB 

27b 

2’B . 










SL 

3?A 

34B 

37A 

aqb 

4’A 










SI 

Fa 1a 

170 

32B 

37b 

4’B 

56b 

6JB 

8 4 A 

84B 






32 

Fa 1a 

17B 

19B 

32B 

338 

37b 

3UB 

39B 

49B 

50B 

51B 

5 AB 

56B 

68B 


7&b 














TEST 

1«A 

20C 

23B 












THETA - 

1?A 

.. 18B ... 

2AB . 

26b. . 

2?B 

2’B 

5'A 

5«B 

59B 

61B 

628 

69a 

70(3 

733 
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Table C-4 

FLORES DICTIONARY (CONT'D) 


- - ' ST A TEH E N. T N.U H 8 E « TABLE 

THE FIRST ENTRY FOLLOWING THE STATEMENT NUMBER THE FLAGS FOLLOWING THE LINE NUMBERS (ON WHICH THE 

IS The Number OF TH=i LINE ON WHICH it was OEFINEd STATEMENT NUMBER WAS REFERENCED) INDICATE the nature 

- ' - !- OF_ the. REFERENCE 

( D « DEFINED U * ASSIGNED X « GOTO (UNCNDfNLi 

S ■ FORMAT NUMBER V B do Y ■ if (ARITHMETIC! 

1 __ I_s Js'ONSTNPRP . RT?i... W..A GO TO (CNOTNLl 


13.... .11 

, BW .. HD 

15 1< 

j 8W 140 

20 17 

1 BW 17D 

25 23 

: 20X ..... 230 . 

30 26 

23X 260 

33 29 

26X 290 

40 32 

0W 320 

45 37 

6W 370 

50 40 

j 40D 52X 

.. .55 .. . 44 

L. 4 1 X . 440 

? 60 49 

i BW 490 

ro 65 54 

I 8W 540 65x 

70 61 

j 50X 610 

75 64 

61X 640 

30 65 

60X 63X 650 

65 68 

8W 680 

90 73 

70X 730 

95 76 

73X 760 

100 79 

8W 790 

103 60 

79S 800 

110 64 

6W 640 

115 67 

' 8W 870 

l2Q 68 

67S 880 

125 92 

8W 920 

130 . 93 

92S 930 

133 97 | 

8W 8W 97q 

140 100 ; 

8w 1000 

145 103 

8* Hw 8w 

150 106 

8W 1060 

155 109 

8W 6W lO’D 

.160 112 

8W 1120 

165 115 

8w 1150 


I 


\ 


96 £i 66 y-oswi 
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Table C-k 

FLORES DICTIONARY (CONT'D) 


, •. T...R. A N S F E .R 1. A B L E .. 

ONLV THOSE ENTITIES WHICH ARE REFERENCED ARE PRINTED OUT, THE COMPETE LIST FOLLOWS 

00 GOTO {UNCONDITIONAL) CALL RETURN (NON-STANDARD) INPUT STOP 

IF (LOGICAL) GOTO (ARITHMETIC) FUNCTION REFERENCE ASSIGN OUTPUT.. — 

IF (ARITHMETIC) GOTO (CONDITIONAL) RETURN (STANDARD) TAPES INTERNAL SUBPROGRAM 


Q 

i 

ro 

-t- 


I F ( L ) 
GOTO(UC) 
GOTO(C) 
FCT REF 
RTRN(S) 

20 

20 

a 

23 

23 

26 

26 

H H 

58 

52 

61 

sa 

70 

60 

73 

61 

6? 

70 

73 

85 

20 

12 

. -113 

57 

15 

116- 

69 

22 

25 

28 

30 

35 

43 

47 

66 

72 

75 77 82 90 95 98 101 1Q4 107 

OUTPUT 
SUB PROG 

'79 

1 

87 

92 













110 
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; Table C-5 

| • PVAPOR DICTIONARY 

I 

i ' 

I 

! variable table 

THE FIRST FUG INDICATES THE 1 THE FOLLOWING TWO CHARACTER FLAGS THE FLAGS FOLLOWING THE LINE NUMBERS 

NATURE OF THE ! ALPHABETIC entity INDICATE THAT the ENTITY IS IN THE (ON WHICH THE ENTITY WAS REFERENCE}) 

a UnD I MENS l ONE 3 VARIABLE CORRESPONDING TYPE OF STATEMENT INDICATE THE NATURE OF THE REFERENCE 

OMvR a DIMENSIONED VARIABLE | AB a A3N0RMAL EX 3 EXTERNAL A * SET EQUAL , OEF I NEO. ASS I 3NED 

FCTN a FUNCTION NAME CM a COMMON FA s FORML AGUMT a = REFERENCED • CALLED 

LBCM S Name of LABE.EO COMMON CP * COMPLEX IN 3 INTEGER c a CALLING SEQUENCE H a J-0 JNIT 

SBRT * SuBHOUiTINE NAME 1 DA a OaTA LG a LOGICAL D » SUBSCRIPT I s READ 

swvr ■ switch; vahu 3 le dm « dimension pr a parameter e * specification 0 a write 

nmlt » namelist name. dp a D3L precisn rl 3 real j » do parameter l « list 

1 EQ » equivalence NL t NAMELIST 


EXP 

FCtN 

3B 

7B 

8B 

10b 

10B 

UB 

UB 

13B 

17B 

19B 

21B 

238 



1 

Fa i 

, u 

2B 













P 

Fa : 

lA 

3A 

5A 

■ 7a 

8B 

8 A 

13A 

UB 

UA 

13a 

15A 

17a 

1»A 

21 A 


! 

23a 

26a 

29A 












plogmm 

1 

. 2^A 

26B 

28A 

29 B 











PVAPOR 

sbrt 

lA 


. 












T 

fa 1 

lA 

3C 

SB 

5B 

7C 

8C 

UC 

IOC 

UC 

UC 

13C . 

15B 

1 7C 

19C 


21c- 23c 25B ...288 
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Table C -5 

PVAPOR DICTIONARY (CONT'D) 


_ S T. A._T E..M E NT. N U M a E R TABLE 

THE FIRST ENTRT FOLLOWING THE STATEMENT NUMBER THE FLAGS FOLLOWING THE LINE NUMBERS (ON WHICH TwE 

is TwE number of thei line on which it was defined statement number was referenced) indicate the nature 

OF. THE REFERENCE...... 

D • DEFINED U = ASSIGNED X « GOTO (UNCNDTNL) 

S « FORMAT number V B DO Y • IF (ARITHMETIC) 

T_.«.N0NSTNDRP RTN W ■ GOTO (CNDTNL) 


a 

I 

ro 

CT\ 


10 

3 

2W 

30 


IS 

5 

2W 

2W 

50 

20 

7 

2W 

2W 

7D 

25. 

. 10 . . . 

2W 

10D 


30 

13 

2W 

2w 

l^D 

35 

15 

2W 

2 W 

1^0 

AO 

17 

... 2W 

170 


A5 

19 

2W 

190 


50 

21 

2W 

21U 


55 . 

23 

2W 

230 


60 

25 

2W 

250 


65 

28 

2W 

280 
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I 


I 


Table C-5 

PVAPOR DICTIONARY (CONT'D) 


I TRANSFER TABLE 

0Nl v those entities WHICH ARE REFERENCED are printed OUT, the compute list follows 
00 r.OTO (UNCONDITIONAL) CALL RETURN (NON-STANDARD) 

IF (LOGICAL) GOTO (ARITHMETIC) FUNCTION REFERENCE ASSIGN 

IF (ARITHMETIC) GOTO (CONDITIONAL) RETURN (STANDARD) TAPE* 


INPUT 

OUTPUT 

INTERNAL 


if<l) 

GOTO(C) 
FCT REF 
O RTRn(S) 

ro SUB PROG 


8 U 
2 

3 7 « 10 10 11 ll 13 l7 19 21 23 

A 6 9 12 14 16 1ft 2.0 22 24 27 30 

1 


I 


STOP 

subprogram 
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Table C-6 
ZFIKD DICTIONARY 


- V- A R l A B L F. T 4 BLE 

THE Fl«ST FUG INDICATES THE THE FOLLOWING T«0 CHARACTER FLAGS 

NATURE OF THE ALPHA3ETIC ENTITY INDICATE THAT THE ENTITY IS IN THE 

* UND l H£NS l ONE 3 VARIABLE CORRESPONDING TYPE OF STATEMENT- 

DMVR « DIMENSIONED VARIA8LE AB » ABNORMAL EX s EXTERNAL 

FCTN # FUNCTION NAMj CM ■ COMMON FA ■ FORML AGgMT 

LBcM *.. NAME OF. LABELED COMMON CP. * COMPLEX . IN a INTEGER 

sbrt « subhoutine name da « data lg s logical 

SW'/R • SWITCH VAR I a 3LE OM • DIMENSION PR s PARAMETER 

nmlT » namelist nam£: dp « 03L precisn rl = real 

eq ■ EQUIVALENCE NL 8 NAMELIST 


THE FLAGS FOLLOWING THE LINE NUMBERS 

( on which the entity was reference;)) 

. indicate the NATURE OF The reference. 
A e SET EQUAL, DEFINED, ASSIGNED 
a « referencediCalled 
C B CALLING SEQUENCE H » 1-0 UNIT .. 

D • SUBSCRIPT I 8 READ 

E » SPECIFICATION 0 « WRITE 

J ? DO PARAMETER L 8 LIST 


A 

DMvR 

DM 

DA OA QA • * 

3E 

16 A 

18A 

20a 

22 a 

24A 

26A 

28 A 

30 A 

32A 

34 A 

36 A 

3»A 

40A 





A2A 

44a 

46A 

102b 

102B 

102B 

102B 

102B 

102B 






-ASS 

FCTN 



54B 

66b 













AS 




5’A 

65B 

63B 












BS 




60A 

65B 

65B 

68b 

6&B 

68B 

63B 

68B 







-DELTA 





7# A 

- 80B ... 






, 









E 




63A 

6 6B 

72A 

72B 











FACTOR 




7«A 

bob 

81 A 

81B 











G 

DMVR 

om 

da da da 

2E 

7a 

9A 

Ha 

57B 

5’B 

5*B 

59B 

59B 

60B 

60B 

60B 

65b 

68B 

I 




70 

7L 

9D 

«L 

HD 

HL 









IN 






6 1 A 

.. . 70 A ... 

.. 708 . 

748 











J 




1 6 D 

16L 

1«D 

1*L 

20D 

20L 

220 

22L 

24D 

24L 

26D 

2*L 

2»D 

28L 





30D 

30L 

320 

32L 

3«D 

3<L 

3&D 

36L 

38D 

38L 

400 

40L 

42D 

42L 





<»40 

44L 

460 

46L 











K 




«D 

4L 













N 


Fa 


XA 

48B 

50D 

500 

52C 

57D 

53B 

58B 

59D 

590 

59D 

S9D 

600 

600 




... 

. 60D 

.. 650 

68D 

88n 

1020 

102D 

102D 

1020 

1020 

102D 





N2 




62a 

7U 

71B 

728 

.738 

73 A 









OLDV 




77a 

80B 













P 


Fa 


1A 

53b 

57B 

65e 

880 

95C 









ptdens 

FCTN 



95b 














PVAPOR 

sbrt 



5L'B 














s ... - 

DMVR 

Dm 

BA 

2E 

. 13A 

880 












T 


Fa 


lA 

4?B 

49B 

500 

50B 

52C 

57B 

65B 

65B 

68B 

68B 

880 

9«b 

102B 





102B 

102B 

102B 

1028 

102B 

1028 

102B 








TRY 




55a 

54C 













TRYP 




52C 

53B 













TS 

DMvR 

Dm 

OA 

3E 

4 A 

508 

50B 











TT — 




V«A 

95C 













V 


fa 


lA 

64A 

65B 

65b 

65B 

68B 

63B 

68B 

68B 

68B 

68B 

6 8B 

73A 

7 58 





7 6 B 

77B 

80 A 

82b 

8«0 

92a 

95 A 

9ft A 

96B 

97A 

97B 

99a 

102a 


VF 




57a 

64B 

830 

92g 

97B 










Y 




65A 

66C 

75B 

77b 

78B 










YP 




6«A 

758 

77B 

78b 












ZF.lND .. SBRT lA 
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Table C-6 

ZFIND DICTIONARY (CORT'D) 


i S T A T E M E-N T 

THE FIRST ENTRT FOLLOWING THE STATEMENT NUMBER 
IS The NUMBER OF TH£i LINE ON WHICH it was DEFINED 

, OF. THE REFERENCE.. 

D b OEFINED U 

s « format number V 

+ . J„i NOHSTNORO htn w 


N-U MBER TABLE 

the Flags FOLLOWING THE line NUMBERS (ON WHICH THE 
STATEMENT number WAS REFERENCED) indicate the nature 


ASSIGNED X 
DO Y 
GOTO (CNDTNL) 


GOTO (UNCNDTNlT 
IF (ARITHMETIC) 



10 

55 

48X 

50X 

55Q 


13 

63 

65D 

BAX 



20 

80 

BOD 

02X 


0 

25.. 

. .03 . 

7 *X 

.... 830 


ro 

30 

85 | 

66X 

850 


VO 

35 

87 

7 A X 

07D 



. 40 

09 

80S 

890 



45 

94 i 

5HX 

94Q 



50 

97 t 

06X 

93X 

97q 


_55_. 

99 

49X 

. 9«0 ... 



60 

101 

54X 

101D 
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Table C-6 

ZFIND DICTIONARY (CONT’D) 


TRANSFER TABLE 


0 

1 

U> 

o 


ONLY those entities 

WHICH 

ARE 

REFERENCED 

ARE PRINTED OUT, THE 

COMPLETE LIST FOLLOWS 


DO 

GOTO (UNCONDITIONAL) 

CALL 


RETURN (NON-STANDARD) 

INPUT STOP 

IF (LOGICAL) 

GOTO (ARITHMETIC) 

function reference 


assign 

OUTPUT 

IF (ARITHMETIC) 

GOTO (CONDITIONAL) 

RETURN (STANDARD) 


tapes 

internal SUB^OC^a- 

IF(|_) 

48 

49 

50 

54 58 

66 72 73 74 

76 

82 


GOTO(UC) 

48 

49 

50 

54 58 

66 74 76 82 

84 

66 93 


CALL 

52 








FCT REF 

54 

66 

95 






RTRvi(S) 

98 

100 

103 






OUTPUT. - 

88 




. . 





SUB PROG 


0AS&.A yR'EF«XKpF i 

_...li - AC-WARN.|.Nc... ... . . 040UQQQ0020Q 
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Table C-7 

FIEDR DICTIONARY 


- • ■ -I VARIABLE TABLE 

tkc first pug indicates the the following two character flags 

NATURE OF The ALPHABETIC ENTITY INDICATE THAT THE ENTITY IS IN THE 

= undimensioned variable corresponding .type of statement 

OMVR * DIMENSIONED VARIABLE AB « ABNORMAL EX = EXTERNAL 

FCTN s FUNCTION Na'M£; CM « COMMON FA a FORML AGUMT 

LBCM..* Name OF LABE.ED COMMON CP # COMPLEX... IN s INTEGER. .. 

SBST « SUBROUTINE NAME Da b DATA LG = LOGICAL 


0 

SWvR * SWITCH VARIABLE 

DM 

a DIMENSION PR 

s PARAMETER 

00 

.. nmlt s namelist name. 

.... .. DP. 

3 D3L PRECISN .. RL 

3 real 

H 1 

. • 1 

EQ 

b EQUIVALENCE NL 

« NAMELIST 


FINOR FCTN I 

1A 

5A 



G OMVR Dljl DA 

2E 

3 A 3B 



N Fa 

lA 

SO 



i 

i 

i 


i 


THE FLAGS FOLLOWING THE LINE NUMBERS 
(ON WHICH THE ENTITY WAS REFERENCED) 

. INDICATE THE NATURE OF THE REFERENCE... 
A * SET EQUAL.DEFINEO. ASSIGNED 
B a REFERENCED. CALLED 
C a CALLING SEQUENCE H » I»0 UNIT . 

D a SUBSCRIPT I » READ 

E 8 SPECIFICATION 0 a WRITE 

j ? do parameter . . l » list 


IMSC-A991396 



LOCKHEED MISSILES & SPACE COMPANY 


Table C-7 

FINDR DICTIONARY (CONT'D) 


- - - — T R A .N .S F.E R T_A_B L E 

ONLY THOSE ENTITIES WHICH ARE REFERENCED ARE PRINTED OUT, THE COMPLETE LIST FOLLOWS 
DO GOTO (UNCONDITIONAL) CALL RETURN ( NON-STANDARD ) INPUT 


IF (LOGICAL) GOTO (ARITHMETIC) ... FUNCTION REFERENCE ASSIGN . _ OUTPUT 

IF (ARITHMETIC) GOTO (CONDITIONAL) RETURN (STANDARD) TAPES INTERNAL 


RTRN(S) 6 

SUB PROG 1 


STOP 

SUBPROGRAM 
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Table C-8 

PTDEUS DICTIONARY 


THE r l RST FLAG INDICATES THE 
nature of the alphabetic ENTITY 
s UMOIMENS I ONE 3 VARIABLE 
OMvR » DIMENSIONED VARIABLE 
FCTN « FUNCTION N4M£: 

LBCM A NaML of labeled COMMON 

SBRT 8 SUBROUTINE N 4 ME 
SWVR « SWITCH variable 
nmlt s namelist namj. 


variable table 
the following two character flags 
INDICATE that the entity IS IN THE 
CORRESPONDING TYPE OF STATEMENT 
AB « ABNORMAL EX s EXTERNAL 

CM ■ COMMON FA a FORML AGuMT 

CP b COMPLEX IN 3 INTEGER 

oa s data lg s logical 

DM s DIMENSION PR s PARAMETER 

DP s 03L PRECISN RL 3 REAL 

EO « EQUIVALENCE NL s NAMELIST 


THE FLAGS FOLLOWING THE LINE NUMBERS 
(ON WHtCH THE ENTITY WAS REF ERENCE3) 
INDICATE THE NATURE OF THE REFERENCE 
As SET EQUAL. DEFINED, ASSIGNED 
B a REFERENCED. CALLED 
C = CALLING SEQUENCE H a J -0 jN'JT 

D a SUBSCRIPT 1 a READ 

E s SPECIFICATION 0 a WRITE 

J a 00 PARAMETER L a LIST 


AA 

DMvR 

DM 

EQ 1 0 A 

4 E 

6E 

29A 












AB . 

DMvR 

DM 

EQIDA ' 

4 E 

6E 

39 A 












AC 

OMvR 

OM 

EQ DA 

4E 

6E 

4 9A 












AO 

DMVR 

OM 

EQ ' DA 

4 E 

6E 

59A 












AE 

OMvR 

DM 

EQ OA 

4 E 

6E 

69A 












af- 

OMvR 

OM 

EQ OA 

4 E 

6E 

79 A . 

. 











A C 

DMVR 

DM 

EQ DA 

4 E 

6E 

89A 












AH 

DMVR 

DM 

EQ ;da 

4 E 

6E 

99A 












41 

DMV« 

DM 

EQ f 0 A 

4 E 

6E 

1094 












BP 

DMVR 

DM 

DA 1 


174 

212B 












3T 

DMvR 

OM 

DA i 

?E 

234 

21<1B 












DP- 

DMVR 

DM 

DA 1 _• 

2 E 

20 A 

212B 












DT 

OMVR 

DM 

DA ' 

2E 

264 

2188 












F 



1 

21 ft A 

217B 

225B 

225a 











FF 



1 

22lA 

2228 

2258 

225b 











FI 



' 

2i5 A 

2160 

220 A 

2218 











FP 



1 1 

212a 

213B 

2168 

2174 

225B 

2258 









FT 

- 


. - 

21 G A 

21 

2215- 

2224 

225B 

225B 









I 



| 

l58j 

15RD 

161 A 

1620 

1620 

1620 

162D 

162D 

1620 

2234 

224B 

225D 

225d 


IP 



1 

213a 

21 4 B 

21 4 A 

215b 

223B 










IT 

- 


1 

21 Ya 

2206 

223B 












J 



1 

22 4 A 

225D 

225D 












JP 

OMVR 

DM 

OA 

2E 

15a 

223B 

224 B 











LOC 

DMvR 

Dm 

DA l 

2E 

13a 

2238 












MX 

DMvR 

DM 

DA 1 1 

2 E 

1 6 A 

2148 

2140 











N 




121 A 

1234 

1264 

1284 

1324 

13 4 A 

1384 

1414 

1 4 8 A 

151 A 

153A 

1584 

1674 

1694 




) 

172a 

1774 

18 3 A 

1824 

1854 

188a 

19-14 

1934 

196 A 

2004 

202A 

206a 

2084 

2104 




1 1 

2U9 

212D 

212D 

21 4 D 

2l«D 

21BD 

223D 

224D 







N1 



! ( - 

13’A 

1424 

2114 

218d 

2230 










P 



. 

ll 4 A 

115B 

115A . 

l20B 

125B 

131B 

137B 

144B 

146B 

147B 

1508 

157b 

1598 

1620 




1 

16*3 

I7i8 

1768 

l79 B 

18 4 B 

187B 

1928 

1958 

19HB 

199B 

2G5B 

212B 



PRES 


F 4 

1 ■ 

1 4 

11 4 8 













PS 

OMVR 

DM 

PA t 

?E 

94 

1598 

162 B 

162B 

162B 









PTDENS 

fctn 


) '■ 

lA 

2254 













R 

OMVR 

DM 

EQ EQ EQ •• 

2E 

6E 

6E 

6E 

6E 

6E 

6E 

6E 

6E 

6E 

225B 

225B 

2258 

225b 

T 


“ ‘ 

* 1 ■ 

U&A 

1178 

U»B 

119B 

1308 

1368 

1364 

145B 

145A 

155B 

1638 

165B 

174b 

1758 




1 

2G 4 B 

211B 

218 B 












TEMP 


F 4 


lA 

11&B 













TM 




1624 

1638 













TS 

OMVR 

DM 

0 A 

2£ 

11 A 

162B 

162b 

1628 











TZ | . 14«A 145B 1A5B 
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Table C-8 

PTDENS DICTIONARY (CONT'D) 


. STATEMENT 

THE FIRST ENTRY FOLLOWING THE STATEMENT NUMBER 
IS The NUMBER OF THE LINE ON WHICH it WAS defined 


.number table 

the flags following the line numbers (on which the 
STATEMENT NUMBER WAS REFERENCED) INDICATE THE NATURE 

OF. THE REFERENCE— 

D • DEFINED U » ASSIGNED X ■ GOTO (UNCNDTNL) 

S » FORMAT NUMBER V ■ DO Y • IF (ARITHMETIC) 

— T.. § NONSTNDRO . NTN W» COTO.(CNOTNL) - ... . - 


0 

1 

oo 

4 =- 


10 

123 

120X 

1230 







15 

125 

119X 

1250 







20 

528 

125X 

128D 







-25 

-130 

110X 

1300 


. 





30 

4.34 

131X 

1340 







35 

136 

130X 

13 6 D 







40 

141 

137X 

1 4 ID 









45 

144 

117X 

1440 







50 

150 

147X 

1500 







...55 ..... 

1-53 . ...... 

150X 

1530 









60 

155 

146X 

1550 







65 

160 

158V 

159Y 

1600 






■ 70 

162 

159Y 

159Y 

162D 






73 

165 

155X 

1650 







' 80 

169 

166X 

1690 







. 85_. 

.171 _ __ 

165X 

1710 







90 

174 

171X 

1740 







95 

179 

1 7 6 X 

1790 







100 

102 

1 7 9X 

1020 







105 

1»4 

1 75X 

1840 

“ 






110 

1«7 

1 B 4 X 

1070 







115 ..... 

i9o - 

1«7X 

1900 







120 

192 

174X 

1920 







125 

195 

163X 

192X 

1V5D 






130 

190 

193X 

1980 







135 

202 

199X 

2020 







1*0 

?04 

198X 

2040 







145 

?08 

205X 

2080 







150 

210 

2Q4X 

2100 







155 

211 

122X 

124X 

127X 

I29x 

133X 

135x 

140X 

141 



1 7BX 

mx 

1&3X 

186X 

189X 

l’lX 

194X 

19; 


201X 


152X 

203X 


154X 

207X 


157X 

209X 


164X 

211D 


160X 17 OX 173X 


IMSC-A991396 



C-35 

LOCKHEED MTSSILES & SPACE COMPANY 


Table C-8 

I 

; PTDENS DICTIONARY (CONT'D) 


TJU N.5 F E.R...TJ B L E 

CNI.Y THOSE ENTITIES WHICH ARE REFERENCED ARE PRINTED OUT, THE COMPLETE LIST FOLLOWS 

DO GOTO (UNCONDITIONAL) CALL RETURN ( N0N»ST ANDARD > INPUT STOP 

IF (LOGICAL) GOTO (ARITHMETIC) FUNCTION REFERENCE ASSIGN OUTPUT 

IF (ARITHMETIC) GOTO (CONDITIONAL) RETURN (STANDARD) TAPES INTERNAL SUBPROGRAM 


DO 

158 








IFCl > 

115 

117 

118 

119 

120 

125 

130 

13l 


175 

176 

179 

184 

187. 

-192 

195 

190 

IP ( A > 

, 159 








GOTO(UC) 

117 

118 

119 

120 

122 

124 

125 

127 

.. .. . . 

,..i . 154 

155 

157 

163 

164 

165 

166 

168 


189 

1V1 

192 

194 

195 

197 

198 

199 

RTRN(S) 

226 








SUB PROG 

1 






— 

— 


136 

137 

145 

146 

147 

150 

155 

157 

163 

165 

166 

171 

174 

199 

204 

205 

211 

214 









12? 

130 

131 

133 

135 

137 

140 

143 

146 

147 

149 

150 

152 

170 

171 

173 

174 

175 

176 

178 

179 

181 

183 

184 

1"6 

187 

20l 

203 

204 

205 

207 

209 









I 
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Table C-9 
WTCTRL DICTIONARY 


- - - VARIABLE TABLE 

THE FIRST FLAG INDICATES THE THE FOLLOWING TWO CHARACTER FLAGS THE FLAGS FOLLOWING THE LINE NUMBERS 

nature of the alphabetic entity Indicate that the entity is in the con which the entity was referenced) 

= UnDIMENSJONED VARIABLE- CORRESPONDING TYPE OF STATEMENT INDICATE THE NATURE OF THE REFERENCE 

0 M V R s DIMENSIONED VARIABLE AB » A3N0RMAL EX a EXTERNAL A = SET EQUAL# DEF I NED # ASS I GNED 

FCTN = FUNCTION NAME, CM s COMMON FA a FORML AGUMT B » REFERENCED . CALLED 

-L6CM » NaME OF LABELED COMMON CP ■ COMPLEX . IN a INTEGER . C * CALLING SEQUENCE H « 1-0 UNJT 

S9RT * SUBROUTINE NaME DA » DATA LG a LOGICAL 0 a SUBSCRIPT I a READ 

SWvR * SWITCH VAR1A3LE OM a DIMENSION PR a PARAMETER E = SPECIFICATION 0 » WRITE 

nmlt * namelist name. dp a D3L precisn .rl * real _ _ j « do parameter l « list 

EQ a E3UIVALENCE NL a NAMELIST 















A 





6^A 

66a 

63B 






B 





63A 

67A 

68B 






CBWT 

FCTN 












CFTw 

FCTN 




3*0 








D 


Fa 



IA 

24a 

29B 

320 

39C 

47C 

6UB 


.F.TIL 

-D.tMV K 

DM, 

UA 

DA. - 

. «E 

... 5A 

.. 6A . 

23b 





I 


Fa 



lA 

139 

340 






ia 





4<>A 

47C 

50A 

53a 

5A A 

59a 



I D v 

__ 




3«A 

39C 

...41 A 

43a 





IF 


Fa 



lA 

230 







I I 


Fa 



lA 

320 







.!« 


Fa. 



u 

190 

,._.20B ... 

,2ls 

23D 

2»D 

23D 

29D 

IV 


Fa 



lA 

38Q 







U 





55 D 

5L 

60 

6L 

7D 

7L 

30 

OL 






2»D 








MINTHK 

dmvr 

RL 

UM 

DA 

2E 

3E 

9 A 

28b 

2 B B 




P 


Fa 



lA 

24B 

26B 

27r 

3’C 

47C 



r 0 1 

D m VR 

OM 

DA 


3E 

3 A 

32B 






H. -i 0 L 

dmvr 

OM 

DA 


3E 

74 

29B 






Y 





23a 

249 







Si 


fa 



lA 

303 

32B 

6 fl 0 





Si* 


fa 



lA 








S3 


Fa 



lA 

329 







thkl.. .. 





2 4 A 

239 

2BA 

29b 





WGTfT 





2 V A 

309 







WI 


Fa 



lA 

11A 

32A 






WT 


Fa 



lA 

12A 

16 A 

30a 

33 a 

39a 

47A 

68A 


WTCTRL SBRT U 


SD 9L 25A 


26A 


2T a 


23D 
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Table C -9 

WTCTRL DICTIONARY (CONT'D) 


| 

STATEMENT. 

THE FIRST ENTRY FOLLOWING THE STATEMENT NUMBER 
IS The NUMBER OF TH£ LINE ON which IT WAS OEFJNEd 


Number table 

the flags following the line numbers ion which the 
STATEMENT NUMBER was referenced) indicate the nature 
.. .. of the reference 

D s DEFINED u = ASSIGNED X 

S » FORMAT NUMBER v « do y 

T g nonstndru ktn W » GOTO icndtnd 


GOTO (UNCNOTNL) 
IF (ARITHMETIC) 


0 

1 

LO 


10 . 

16 

1 13W 

160 




15 

19 

13W 

1 3w 

l3w 

13W 

13W 13w 

20 

22 

19X 

22U 




. 25 - 

_ 34 

13W 

13w 

13W 

340 


30 

35 

34S 

35u 




35 

38 

13W 

l3w 

3»D 



40 

37 

39D . 

42X 

4«x 



45 

41 

13W 

410 




50 

43 

13W 

4 30 




-.55- 

.....4 6 

13W 

46q 




60 

47 I 

470 

51X 

5 4 X 

37x 

60X 

65 

50 ; 

13W 

50Q 




70 

53 

13W 

13W 

13W 

530 

. . 

75 

56 1 

13W 

560 




80 

59 

13W 

590 




-85— 

... 62 .... i 

20X 

620 


... _ _ 



90 

66 1 

21X 

'660 




95 

6il 

6 4 X 

6«0 





IMSC-A991396 



LOCKHEED MISSILES & SPACE COMPANY 


Table C-9 

WTCTRL DICTIONARY (CONT'D) 


— T.R A N S F £ R ... TABLE 

ONLY THOSE ENTITIES WHICH ARE REFERENCED ARE PRINTED OUT, THE COMPLETE LIST FOLLOWS 
00 GOTO {UNCONDITIONAL) CALL RETURN ( NONSTANDARD > INPUT 


IF (LOGICAL) GOTO (ARITHMETIC) FUNCTION REFERENCE - ASSIGN _ OUTPUT 

IF (ARITHMETIC) GOTO (CONDITIONAL) RETURN (STANDARD) TAPE* INTERNAL 


IF(l) 

19 

20 

21 

26 

27 

2fl 

GOTO(UC) 

19 

20 

21 

42 

44 

51 

G0T0(C ) 

13 






FCT REF 

39 

47 





RTRn(S) 

17 

33 

37 

40 

48 

69 

OUTPUT 

„ 34... 






SUB PROG 

1 







STOP 

SUBPROGRAM 
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Table C-10 
CFTW DICTIONARY 


i 


... I _ VAR I ABLE . TABLE 

THE FIRST FLAG INDICATES THE THE FOLLOWING TWO CHARACTER FLAGS THE FLAGS FOLLOWING THE LINE N jMBERS 

nature of the alphabetic entity indicate that the entity is in the (on which the entity was references) 

3 UNO I HENS l ONE 3 VARIABLE CORRESPONDING TYPE OF STATEMENT INDICATE THE NATURE OF THE REFERENCE 

OMVR * DIMENSIONED VARIABLE AB a ABNORMAL ex s EXTERNAL A a SET EQUAL # DEF I NED. ASS I GNED 

fctn a function name cm a common fa a forml agumt b » referenced. called 

LBCM.a Name of LABE.ED COMMON CP i COMPLEX ..IN a INTEGER C « CALLING SEQUENCE H * 1-0 jNJT 

SBRT = SUBROUTINE NAME DA a DATA LG s LOGICAL D » SUBSCRIPT I ■ READ 

SWVR a SWITCH VAR I A 3LE DM ■ DIMENSION PR a PARAMETER E » SPECIFICATION 0 ■ WRITE 

. . nmlt « namelist name: .. .... dp ? 03L precisn ...rl. a real j ?. do parameter _ l » list 

EQ S EQUIVALENCE NL a NAMELIST 


FCTN 1A 21 A 23A 26a 2«A 

OMVR DM DA 5E UA 21B 

OMVR DM UA &E 12A 230 . 

OMVR OM UA S>E 13A 2&B 

OMVR DM UA 5e 14 A 23B 

Fa 1 A ... 13B — 1 9 S ... 2 OB. . 21B . 21B ._ 21B ....230 23B 23B 260 280 

Fa lA 17B 1? A 210 210 2^0 230 26D 260 28D 28D 

OMVR RL UM DA 3e 5E 7A 2lB 

OMVR RL UM DA . 3E 5E 8A 236 

OMVR RL UM DA 3E 5E VA 26b 

OMVR RL DM DA 3e 3E 10A 28b 

F A. ,J lA... 1»B .. 200.... 29B__ 


ko CFTW 
Cl 
C2 
C3 
C4 
0 

IOV 

K1 

K2 .. 

K3 

K4 

.P. 


I 
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Table C-10 

CFTW DICTIONARY (CONT'D) 


statement 

THE FIRST ENTRT FOLLOW I NG THE STATEMENT NUMBER 
IS TwE NUMBER OF TH2' LINE ON WHICH IT WAS DEFINED 


number table 

the Flags FOLLOWING the line numbers (ON WHICH THE 
statement number was referenced) indicate the nature 
- OF the reference 

D » DEFINED u » ASSIGNED X ■ GOTO (UNCNDTNU) 

S ■ FORMAT NUMBER V « DO Y a JF (ARITHMETIC) 

T « NONSTNDRD HT.N . W § GOTO (CNOTNL) . ... 


10 

23 


19X 

20X 2?D 

15 

25 


18X 

250 

2C 

28 


25X 

280 
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I 


I 


I 


Table C-10 

CFTW DICTIONARY (CONT'D) 


| .TRANSFER TAB L E 

ONLY THOSE 1 ENTITIES WHICH ARE REFERENCE!) ARE PRINTED OUT, THE COMPLETE LIST FOLLOWS 
00 j GOTO (UNCONDITIONAL) CALL RETURN (NON-STANDARD) INPUT 

. IF (LOGICAL) .. GOTO (ARITHMETIC) FUNCTION.. REFERENCE -ASSIGN OUTPUT 

IF (ARITHMETIC) GOTO (CONDITIONAL) RETURN (STANDARD); TAPES INTERNAL 

O 

h ifTl) 

GOTO(UC) 

RTRN(S). 

SUB PROG 


17 18 1 * 20 

18 19 20 25 

22 24 V 29 

1 


25 


I- 


• I 



STOP 

subprogram, 
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Table C-ll 


CBWT DICTIONARY 


THE FIRST FLAG INDICATES THE 
NATURE OF THE ALPHABETIC ENTITY 
« UNDIMENSIONEJ VARIABLE 
DMvR » DIMENSIONED VARIABLE 
FCTN = FUNCTION NAME 

__'..LBCM ■ Name OF LABE. ED COMMON.. 

SoRT B SUBROUTINE name 
SWVR » SWITCH VARIABLE 
. nmlt ■ namelist nam=: 


VARIABLE TABLE 
the following two character flags 

Indicate that the entity is in the 
corresponding type of statement ..... 


AS 

CM 

CP 

Da 

DM 

OP 

EQ 


A3NORMAL 

COMMON 

complex 

DATA 

OIMENSlON 
D3L PRECISN 
EQUIVALENCE 


EX 
FA 
. IN 
LG 
PR 
RL 
NL 


external 

FORML ACUMT 

integer 

logical 

parameter 

real 

NAMELIST 


THE FLAGS FOLLOWING THE LINE NUMBERS 
(ON WHICH THE ENTITY WAS REFERENCED) 
INDICATE THE NATURE OF THE REFERENCE 
A a SET EQUAL. DEFINED. ASSIGNED 
B » REFERENCED. CALLED 
C = CALLING SEQUENCE H » J*0 UNIT 

D a SUBSCRIPT I a READ 

E a SPECIFICATION 0 « WRITE 

J a DO PARAMETER L • LIST 


CBWT 

FCTN 



1A 

7 A 

10A 

10B 

l2A 

128 

12B 

Cl 

DMVR 

DM 

DA 

3E 

4A 

7B 

10B 

12B 



C2 

DMvR 

Dm 

DA 


5 A 

10B 

12b 




0 


Fa 


1A 

7B 






ia 


Fa 


lA 

7D 

7D 

100 

10D 

120 

120 

M 

DMVR 

RL 

DM DA 

2E 

3E 

6A 

7B 




p 


Fa 


lA 

SB 

96 

12b 
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Table C-ll 

CBWT DICTIONARY (CONT'D) 


a 

i 

■p- 

UJ 


! — S T A. T £ M E. N. T N.u M 8 E . R T A B L E 

THE FIRST ENTRY FOLLOWING THE STATEMENT NUMBER THE FLAGS FOLLOWING THE LINE NUMBERS (ON WHICH THE 

IS THE NUMBERIOF THS| LINE ON WHICH IT WAS DEFINED STATEMENT NUMBER WAS REFERENCED) INDICATE THE NATURE 

I ........ OF THE reference 

D » DEFINED * U » ASSIGNED X • GOTO (UNCNDTNL) 
I S « FORMAT NUMBER V « 00 Y ■ IF (ARITHMETIC) 

...L . T. « NQNSTNDRD RTN W » GOTO (CNDTNL) 


-..10.. 12 I 9X 12D 

i 


I 

I 

I 

I 


\ 

I 

I 

I 

I 
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Table C-ll 

CBWT DICTIONARY ( CONI' D ) 


TRANSFER TABLE 

ONlV those ENTITIES WHICH ARE REFERENCED are printed out, the COMPLETE LIST follows 
00 GOTO (UNCONDITIONAL) CALL RETURN ( NQN»STANDARD ) INPUT 

IF (LOGICAL) ... GOTO (ARITHMETIC). FUNCTION.REFERENCE— ASSIGN OUTPUT 

IF (ARITHMETIC) GOTO (CONDITIONAL) RETURN (STANDARD) TAPES INTERNAL 


IF<L) 8 9 

GOTo(UC) 9 

RTRn(S) 8. 11 1?.. . 

a SU8 PROG 1 

-p- 

■p- 


STOP 

SUBPROGRAM 
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Table C- 12 

GOMTKY DICTIONARY 


1 .. ■ ... ' - VARIABLE TABLE 

the first flag indicates the the following two character flags the flags following the line numbers 

NATURE OF the ALPHABETIC ENTITY INDICATE THAT THE ENTITY IS IN THE <ON WHICH THE ENTITY WAS REFERENCE 3 ) 

. . " UNO! MENS I ONE D VARIABLE CORRESPOND I Nc TYPE OF STATEMENT ... INDICATE THE NATURE OF THE REFERENCE 

OMVR = dimensioned VARIABLE AS a ABNORMAL EX a EXTERNAL A * SET EQUAL*DEF IKED > ASS1 GNEO 

FCTN a FUNCTION N AM£; i CM * COMMON FA a FORml aGUMT B ■ REFERENCED , CALLED 

LBCM._« NAME' OF LABELED COMMON CP « COMPLEX IN a. INTEGER C a CALLING SEQUENCE H « J-0 jNJT 

SBRT » SUBROUTINE NAME DA ■ DATA LG a LOGICAL 0 a SUBSCRIPT I a READ 

SWVR » SWITCH VAR1A3LE DM a DIMENSION PR a PARAMETER E a SPECIFICATION 0 a WRITE 

. .nmlt » namelist nam=; dp a dbl precisn_rl • real _ u ■ do parameter l » list 

I EQ a EQUIVALENCE NL a NAMELIST 


alGg 

FCtn 


.... j... 





57B 








.. 


. — 





ARACYL 

FCTN 


! 




3* A 














AREAFR 

FCTN 


i 




41 A 














ARSPHR 

FCTN 


i 




4/A 














A S I N 

FCTN 


1 




52B 














CONE.._.. 

.FCTN 


| . 



. 

2 A . 

9 A . 

.....13 A 

18a 

_ 22A 

27A — 

32A 

37 A 

42A 

52A 

57A 

63A 



CYLND.R 

FCTN 


! 




12a 














cylsph 

FCTN 


i 




1/A 














£ 



j 




51 A 

52C 

52B 

56a 

57B 

57C 

5/C 








FRCONE 

FCTN 


i 




21A 














H 


Fa 

fa 

FA 

fa fa 


2A 

9B 

12 A 

13b 

21 A 

22B 

36A 

37B 

41 A 

42C 

42C 




HS.PhE r. 

.FCTN 







2<>A 

















1 




VB 

139 

IBB 

22b 

37B 

42B 

52B 

57B 

60B 






PI 203 



i 




2/B 

320 













R ... ..... . 


Fa 

fa 

FA 

fa »« 


2a 

98 

90 

12a 

13B 

13B 

1/A 

lflB 

18B 

21A 

22B 

228 

220 

26A 




1 




2/B 

2/B 

31 A 

32b 

32B 

3*A 

3/B 

41 A 

42B 

42C 

47A 

4 SB 

51C 

51C 




i 




52B 

52B 

540 

56C 

56 C 

56B 

5/B 

57B 

6 OB 

60B 





rrot 


Fa 

fa 

FA 

fa 


i/A 

18B 

26A 

270 

31A 

3?B 

4/A 

46B 

51C 

51C 

51B 

52B 

5<B 

56C 




i 



: 

5&C 

57B 

57B 












R2 


Fa 

FA 




21A 

228 

22B 

22b 

4 1 A 

428 

42C 








sphere 

FCTN 


1 




31 A 














SORT 

FCTN 


* 




«2B 

518 

56B 














96£i66v-DSW1 
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Table C-12 

GCMTKY DICTIONARY (CONT'D) 


STATEMENT NUMBER TABLE 

THE F 1 RST ENTRY FOLLOWING THE STATEMENT NUMBER THE FLAGS FOLLOWING THE LINE NUMBERS (ON WHICH THE 

IS TmE number OF TH=: line on which it WAS defined STATEMENT number WAS REFERENCED) indicate the mature 

OF the REFERENCE 

D ■ DEFINED U • ASSIGNED X ■ GOTO (UNCNOTNl) 

S ■ FORMAT NUMBER V « DO Y ■ IF (ARITHMETIC) 

T « NONSTNDRO RTN W a GOTO ( CNDTNL ) 


0 

1 

-P- 

o\ 


10 54 

15 60 


48X 54U 

t>4X 60U 


CO 

o 


VO 

VO 


LO 

MD 
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Table C-12 

GCMTRY DICTIONARY (CONT'D) 


I i 

I I TRANSFER TABLE 

on: Y THOSE ENTITIES WHICH ARE REFERENCED are printed out, the COMPLETE list FOLLOWS 
no" ! COTO {UNCONDITIONAL} CALL RETURN ( NON-STANDARD ) 

IF (LOGICAL) GOTO (ARITHMETIC) FUNCTION REFERENCE ASSIGN 

IF (ARITHMETIC) GOTO (CONDITIONAL) RETURN (STANDARD) TAPE* 


INPUT 

OUTPUT 

internal 


0 

1 

■t- 

-0 


IFlL) I 

48 

54 , 




GOTO(UC) 

48 

541 

52 


57 

fct ref ■ 1 

42 

511 

56 

rtrn<s) j 

10 

141 

19 

23 

28 

SUB PROG 

2 

12 ' 

17 

21 

26 


33 

31 


38 

36 


43 

*1 


53 

47 


58 61 


STOP 

subprogram 
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Table C-13 

SPHSEG DICTIONARY 


THE FIRST FUG INDICATES THE 
NATURE OF the alphabetic ENTITY 
s UMDIMENSI0NE3. VARIABLE 
OMVR = dimensioned VARIABLE 

FCTN 3 FUNCTION NAM* 

LBCM = Na ;, ML QF LABE. ED COMMON .. 

sbrt * subroutine name 
SWVR » SWITCH VARIABLE 
nmlT « namelist nam£; 


V. A R 1. A B Li TABLE 

the following two character flags 
indicate that the entity is in the 
corres=onoing type of statement. .. 


A8 

5 

A3NORMAL 

EX 

s 

external 

CM 

E 

COMMON 

FA 

s 

FOR ML AOUMT 

CP 

s 

COMPLEX 

...IN 

5 

INTEGER 

Da 

s 

data 

LG 

S 

logical 

DM 

9 

DIMENSION 

PR 

9 

parameter 

OP 

a 

D3L PRECISN 

RL 

S 

real 

EQ 

s 

equivalence 

NL 

3 

namelist 


a 

1 

' aCOS 

FCTN 




2‘ 5 B 






cos 

FCTN 




2^8 






4=- 

CO 

CYMSPH 

sbrt 




3’A 






D 





43a 

44B 






ELlPSG 

S9RT 




15a 







. K 


Fa 

FA 

FA 

2A . 

15a 

35A 

39a 

44A 



1 





2RJ 

26B 

27Q 

29j 

30B 

31D 


;< 





30a 

350 






PHI3 





a^A 

27C 






PI 





43b 







PI203 





Ub 

17B 

27C 





1 PVOL 


Fa 

fa 

FA 

2a 

. 15a 

J9B 

..39a 

43B 



RAD 


Fa 

fa 

FA 

2a 

UB 

15A 

170 

276 

31B 


RPO 


Fa 

Fa 


i»a 

178 

17B 

39 A 

438 

43B 


SPHSEG 

sbrt 




2a 







TVOL 





UA 

17A 

19B 





XI 





2<>A 

27C 






XM 





1*A , 

20B 

210 

24c 




Y 

dmvr 

Dm 



#E 

27 a 

31B 

3lB 

330 

35B 


31D 


3S>A 


the flags following the line numbers 
(ON WHICH THE ENTITY WAS REFERENCED) 
INDICATE THE NATURE OF THE REFERENCE 
A » SET EOUAL.OEFINEOf ASSIGNED 
B a REFERENCED. CALLED 
C 8 CALLING SEQUENCE H » 1-0 UNIT 

D « SUBSCRIPT I a READ 

E 8 SPECIFICATION 0 a WRITE 

J a DO PARAMETER L » LIST 


43B 43B 44b 44B 
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i 


i 

I : 

j 

l 

I 

Table C-13 

SPHS1G DICTIONARY (CONT'D) 



a 

1 


VO 


THE 

FIRST ENJRY FOL. 

OKING 

THE 

IS 

The number OF TH j 

1 

1 

LINE 

ON W 

1 

-.. 10 - 

1 

1 

16 ). 

12 X 

1 

- 118 D 

13 

23 1 

20X 

23U 

20 

28 

25V 

:2«d 

-- 2 S — 

—.32 I 

29V 

320 

30 

33 | 

31X 

350 

33 

47 i 

33S 

A7U 

.. AO- 

48. ; 

21 S 

A 8 Q 


S T U E H E NJ .. 
STATEMENT NUMBER 
<1CH IT WAS DEFINED 


Number table 

the flags FOLLOWING THE LINE NUMBERS (ON WHICH The 
STATEMENT NUMBER WAS REFERENCED) INOICATE TH- NATURE 

OF THE reference 

D ■ DEFINED U ■ ASSIGNED X » GOTO (UNCNDTNlj 

S ■ FORMAT NUMBER V » DO Y » if (ARITHMETIC) 

- T • NONSTNDRU HTN W « GOTO (CNDTNL) 


) 

t 


I 


I 
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Table C-13 

SPHSEG DICTIONARY (CONT’D) 


TRANSFER T A b L E 

ONLY THOSE- ENTITIES WHICH ARE REFERENCED ARE PRINTED OUT, THE COMPLETE LIST FOLLOWS 
00 ' GOTO (UNCONDITIONAL) CALL RETURN (NON-STANDARD) INPUT 

IF (LOGICAL) GOTO (ARITHMETIC) FUNCTION REFERENCE ASSIGN OUTPUT 

IF (ARITHMETIC) GOTO (CONDITIONAL) RETURN (STANDARD) TAPES INTERNAL 



DO 

25 

29 




if<l) 

20 

31 




GOTO(UC) 

12 

20 

31 



FCT REF 

24 

27 




RTRn(S) 

22 

34 

36 45 


0 

..OUTPUT.- 

21.. . 

33 



vn 

O 

SUB PROG 

2 

15 

39 




STOP 

subprogram 


IMSC-A991396 



IMSC-A991396 


APPENDIX D 

SOPSA CROSS REFERENCE 

This Appendix contains a cross reference listing of all entry points 
in the SOPSA program. The names of the relocatable elements are listed 
alphabetically. Beside each element name, the names of the element entry 
points are listed. Beside each entry point name, the names of all re- 
locatable elements in the SOPSA program which reference this entry point 
are listed. 


D-l 
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Table D-l 

SOPSA CROSS REFERENCE LISTING 


ARACYL 

01 

(000635) 

AREAFR 

01 

(000703) 

ARSPKR 

01 

(000757) 

CBWT 

01 

(000057) 

CFTW 

01 

(000125) 

CONE 

01 

(000244) 

CYLNDR 

01 

(000312) 

CYLSPH 

01 

(000360) 

CYMSPH 

01 

(000254) 

ELIPSG 

01 

(000224) 

FINDR 

01 

(000012) 

FLORES 

01 

(000576) 

FRCONE 

01 

(000433) 

HSPHER 

01 

(000507) 

INIVOL 

01 

(000162) 

PTDENS 

01 

(000564) 

PVAPOR 

01 

(000316) 

SPHERE 

01 

(000562) 

SPHSEG 

01 

(000176) 

ULLHED 

01 

(000240) 

WTCTRL 

01 

(000265) 

ZFIND 

01 

(000403) 


(GCMTRY) 7 INIVOL 
( GCMTRY ) , INIVOL 
(GCMTRY) , INIVOL 
(CBWT) ,WTCTRL 
( CFTW) 7 WTCTRL 
( GCMTRY) 

(GCMTRY) , INIVOL 
(GCMTRY) , INIVOL 
(SPHSEG) jULLHED 
(SPHSEG) ,ULLHED 
(FINDR) ,STAR 
(FLORES) , STAR 
(GCMTRY) , INIVOL 
(GCMTRY) , INIVOL 
(INIVOL) , STAR 
(PTDENS) 7 STAR, ZFIND 
(PVAPOR) , ZFIND, STAR 
(GCMTRY) 

(SPHSEG) 

(ULIHED) ,STAR 
(wtctrl) ,STAR 
(ZFIND) ,STAR 
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